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EDITORIAL 


Chers Membres, 


Je suis bien triste de vous annoncer une mauvaise nouvelle : des rumeurs 
convergentes annoncent que le HP-71 ne sera plus fabriqué d’ici la fin de l’année. 
Hewlett-Packard ne l’a pas encore confirmé, mais cela ne saurait tarder. Je 
pense que nous aurons l’occasion d’en reparler plus longuement dans ces 
colonnes. 


En revanche, deux nouvelles machines seraient sur le point de sortir : il s’agit des 
HP-22 et HP-32 qui viendraient compléter la gamme actuelle par le bas. 


Nous avons déjà mentionné à plusieurs reprises la disponibilité des programmes 
HP-41 de la défunte Bibliothèque de Genève. Tous ces programmes encombrent 
actuellement la cave d’un de nos membres. Personne ne s'étant manifesté, nous 
avons décidé d’accorder un délai jusqu’au 31 octobre : si à cette date, vous n’avez 
trouvé aucune solution, cette bibliothèque de programmes sera détruite. 


Enfin, une très bonne nouvelle pour terminer : vous avez reçu avec votre dernier 
JPC une carte d’adhérent. Celle-ci vous permet d’obtenir des réductions allant 
jusqu’à 25% chez certains distributeurs HP. Alors, profitez-en ! 


A bientôt, 


Pierre David (37) 
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COURRIER DU COEUR 


Patrick Tassignon 

Rue des combattants, 15/6 
B-4370 Waremme 
Belgique 


Vend : 
Un HP-71 : 2500 FF, un module HP-IL : 800 FF, un 


module Forth/Assembleur : 800FF, un module 
Math : 480 FF et deux modules 4 Ko Ram : 320 FF. 


Philippe Ferreira Do Amaral 
5 rue Daguerre 

93110 Rosny sous Bois 

Tél: (1) 45 28 33 32 

Vend : 


HP-28C sous garantie, état neuf : 1100 FF. 


Votre question ? 
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Choc en retour 

Jeu intégral 

PEEK et POKE pour HP-28S 
Le facteur est constant (acte II) 
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ERRATUM 


Dans JPC 55, une vilaine erreur s’etait glissée dans la 
chaîne de codes assembleur... Voici la bonne chaîne : 


76C20A63C069C20C31008F180501BF510CD21441B9F00C14234À 
000088E913410200DA8F8B0508DA6930186110CAF01431562A26 
A265D01869000158E13114334E4A208A200342020061BF84A174 
14334500008A249EA81C1008F8B0501188FEA3505328F8B05086 
A9080E39308F49A4085A65DF 1361098F88050119134110D8CD14 
3131179148310386A31909EA903170B6A1580160171CD59D8F8B 
050111141142164808C09F20 


Paul Courbis (392) 





JEU INTEGRAL 


Bonjour à celui qui lira cet article. Devant le 
manque évident d’agressivité dont font preuve mes 
congénères (les utilisateurs de HP-28), je m'insurge et 
je tente de remédier à cette situation de manque... Le 
seul problème est qu’étant nouveau venu à PPC, je ne 
sais pas écrire d'articles, aussi je vais m’efforcer de 
faire de mon mieux pour vous faire part de ces 
quelques programmes élaborés pendant les cours de 
philo qui hantent les heures de ma classe de 
Terminale. 


LE JEU 


Voici tout d’abord un programme de jeu destiné à 
égayer ces cours de philo. Le programme principal 
GAME lance le jeu et gère les six autres 
sous-programmes. Le but du jeu est de traverser 
l'écran de gauche à droite en empruntant le sentier 
que dessine le programme. Il s’efface bien sûr au bout 
de cinq secondes : il faut donc le mémoriser avant de 
vous laisser aller dans vos errances.. 


On déplace le curseur, qui se trouve au début du jeu 
sur le sentier à gauche de l'écran, avec les touches 


grises fléchées. 


Voici les sept programmes tels qu’ils sont édités par 
la HP-28C. 
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GAME 
« 
!PPAR' PURGE 
(0,0) PMIN 
(0,1.2) O RAND 2 * 
DUP *W 1.54 *H 
ISINC(X)+1=SIN(X)+1.4! STEQ 
CLLCD DRAW 
5 WAIT 
6.8 * DUP 136 / 'S! STO 
ISIN(X)+1.2! STEQ 
CLLCD 
FOR X 
DO début de boucle 
KEY 
UNTIL 0 # 
END avance et vérification 
2000 .05 BEEP 
STR+ de La position 
EVAL + DUP PIXEL 
3000 .05 BEEP 
DUP au sentier 
C-R SWAP 
1X!' STO EQ 
EVAL - ABS .2 
IF > 
THEN STOP ABORT 
END 
S 
STEP 
FIN appel à FIN si réussite 


mise en place de PPAR 


tracé du sentier 


calcul du step S 


du curseur par rapport 


appel à STOP si plantage 


» 


RIGHT 

« S DO R-C » déplacement du curseur 
LEFT 
«DS-D0R-+» 
DOWN 

« (0,-.08) » 


UP 
« (0,.08) » 


STOP 
« 
"out of the way! 
& DISP 10 3 BEEP 
CLLCD CLEAR 7 1 
“Votre erreur vous est fatale... 
1 DISP 
FOR X 
X 200 * 
.5 BEEP -1 
STEP 


Paix a votre ame! 


FIN 
« 
111 
FOR X 
X 200 * 
"La femme du chef de La tribu adore Les hommes 
blancs... au court-bouillon..." 
1 DISP .1 BEEP 
NEXT 


Voici maintenant pour les nostalgiques du Basic, deux 
fonctions : INKEY pour !a saisie d’un caractère et INPUT 
pour la saisie d’une chaîne validée par [ENTER]. 


Le fonctionnement de INKEY est simple, quant à INPUT 
c’est une boucle qui répète INKEY jusqu’à ce que l’on 
presse [ENTER]. 


INKEY 

« 
DO KEY UNTIL O0 # 
END 


» 


INPUT 
« 
“un 
WHILE 
DO 
KEY 
UNTIL 0 # 
END 
DUP MENTER" # 
REPEAT + 
END 
DROP 


» 


LES INTEGRALES 


Maintenant, pour les matheux qui cherchent à tracer 
les fonctions définies par une intégrale, voici INTEG. Si 
on a la fonction F(x) définie sur [B;B;] par 
F(x) = S'f(t) dt (entre a et x) alors INTEG trace la 
fonction F. 


INTEG 
« 
CLLCD DRAX préparation de l'écran 
Bi Bs 
FOR x 
x 
1fCt)! fonction à intégrer 
t a x 3 LIST 
.1 
f intégration 
DROP erreur de f 


R+ PIXEL 
sl 
STEP 


on forme (x,F(x)) 


» 


Pour améliorer la précision, il suffit de changer le 
step et la précision demandée en effectuant f. 


Merci d’avoir lu jusqu’au bout. 


Hervé Thévenon (476) 





PEEK ET POKE POUR HP-28S 


Les programmes PEEK et POKE sont à entrer à l’aide du 
programme ASSEMBLEUR pour HP-28$. Pour cela entrer 
ASSEMBLEUR, si ce n’est déja fait, et taper les chiffres 
hexadecimaux de la colonne codes sous forme d’une 
chaîne, en une seule ligne, sans espace puis executer 
ASSEMBLEUR. Vous aurez alors dans le niveau 1 de la 
pile deux System Object et DROP2 (pour POKE) ou deux 
System Objects (pour PEEK). 


Utilisation de ces deux nouvelles commandes : 


POKE 


Syntaxe : 
2:#01251 
1:"ABF4326D3" 
Pas de sortie 


adresse où poker 
quartets à poker 


Par exemple, #FF840 "FFFFFFFF" place F (15 en 
décimal) dans les cases mémoire #FF840 à #FF847 
(noircit la première colonne de l'écran). 


Les messages d'erreur possibles sont 
Too Few Arguments et Bad Argument Type. 


PEEK 


Syntaxe : 

2:#011CA adresse du peek 

1:#10 longueur à lire 
En sortie : chaîne contenant les codes hexadecimaux 
des quartets lus. 
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Par exemple, #0 #10 PEEK renvoie les 16 premiers 
quartets de la Rom : "8FDB400000CFE". 
Feu 


Les messages d’erreur possibles sont Too 


Arguments, Bad Argument Type €t Too Few Memory. 


Les programmes 


POKE 

Code Lbl Instructions Commentaires 

76C20 CON(5) #02C67 début de structure 
A63C0 CON(5) #0C36A mise à jour Stacksize 
69cC20 CON(5) #02C96 programme LM 

91100 DEB CON(5) FIN-DEB longueur du code 
8F18050 GOSBVL #05081 sauvegarde DO D1 B D 
1BF510C DO=(5) #C015F No de l'instr. en cours 
D2 C=0 A fixé à zero (sans nom) : 
144 DATO=C A nécessaire pour Les msg 
189F00C DO=(5) #C00F9 d'erreur 

142 A=DATO A A=Stacksize 

34E0000 LCHEX 0000 

8BE ?2A>=C A y a t'il assez d'objets ? 
91 GOYES OK] oui ---> OK1 

3410200 LCHEX 00201 erreur Too Few Arguments 
DA ERR A=C A 

8F88050 GOSBVL #050B8 récupération DO D1 B D 
8DA6930 GOVLNG #0396A affichage erreur 
186110C OK1 DO=(5) #c0116 sauvegarde éventuelle 
AFO A=0 W dans LAST 

15B9 A=DAT1 10 

1562 C=DATO XS 

A26 C=C+C XS 

A26 C=C+C XS 

5D0 GONC L1 

186900C DO=(5) #C0096 

158E DATO=A 15 

34E4A20 L1 LCHEX O2A4E  C=prologue chaîne 

D5 B=C A 

147 C=DATI À 

137 CD1EX 

143 A=DATI A A=prologue obj. niveau 1 
8A4 2A#B A obj. niv. 1=chaine ? 

F1 GOYES L2 non --> erreur 

135 D1=C 

174 D1=D1+ 5 

3407A20 LCHEX 02A70 

D5 B=C A B=prologue entier 

147 C=DAT1 A 

137 CD1EX 

143 A=DATI A A=prologue obj. niv. 2 
8A0 ?B=A A obj. niv. 2=chaîne? 

DO GOYES  OK2 oui--> on continue 
3420200 L2 LCHEX 00202 

GE8F GOTO ERR --> Bad Argument Type 
179 OK2 D1=D1+ 10 D1="mantisse entier 

143 A=DAT1 À A="du poke 
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8F8B050 
130 

143 

133 

174 

143 

174 

D8 

3450000 

Eî Lé 
8A9 

13 

14B 

3103 

B6A 

3190 

9EA 

90 

3170 

B6A 

1580 LS 
160 

171 
3420000 
6DCF 
8F8B050 L3 
142 
164 
808C 
44670 
09F20 


FIN 


PEEK 


Code Lbl 
76C20 
A63C0 
69C20 
88100 
8F18050 
1BF510C 
D2 

144 
1B9F00C 
142 
34E0000 
8BE 

91 
3410200 
DA 
8F8B050 
8DA6930 
186110C OK1 
AFO 

1589 

1562 

A26 


DEB 


ERR 


GOSBVL 
DO=A 
A=DAT1 
AD1EX 
D1=D1+ 
A=DAT1 
D1=D1+ 
B=A A 
LCHEX 
B=B-C 
?B=0 
GOYES 
A=DAT1 
LCHEX 
A=A-C 
LCHEX 
?2A<=C 
GOYES 
LCHEX 
A=A-C 
DATO=A 
DO=D0+ 
D1=D1+ 
LCHEX 
GOTO 
GOSBVL 
A=DATO 
DO=D0+ 
PC=(A) 
CON(5) 
CON(5) 


#050B8 


00002 
Lé 
#050B8 
A 

5 


#07644 
#02F90 


Instructions 


CON(5) 
CON(5) 
CON(5) 
CON(5) 
GOSBVL 
DO=(5) 
c=0 
DATO=C 
D0=(5) 
A=DATO 
LCHEX 
?A>=C 
GOYES 
LCHEX 
A=C 
GOSBVL 
GOVLNG 
DO=(5) 
A=0 
A=DAT1 
C=DATO 
C=C+C 


#02C67 
#0C36A 
#02C96 
FIN-DEB 
#05081 
#CO15F 
A 

A 
#COOF9 
A 
0000E 
A 

okK1 
00201 
A 
#050B8 
#0396A 
#c0116 
W 

10 

XS 

XS 


récupération DO D1 B D 


D1="longueur chaîne 
A=longueur chaîne 
D1="mantisse chaîne 


Transfert 


fin de routine 


DROP2 
fin de structure 


Commentaires 


début de structure 
mise à jour Stacsize 
programme LM 
longueur code 

] 


Voir Les 
commentaires 
dans 


POKE 


A26 

5D0 
1B6900C 
158€ 
3407A20 
D5 

147 

137 

143 

8A4 

61 

135 

174 

147 

137 

143 

8A0 

DO 
3420200 
679F 
84A 

179 

143 

100 
8F8B050 
147 

137 

179 

143 

C4 
34A0000 
ce 

109 
8F8B050 
119 
8FEA350 
532 
8F8B050 
86A 

90 
8DE3930 
8F49A40 
85A 
65DF 
136 

10A 

134 
34E4A20 
144 
3450000 
164 

111 

EA 

140 

164 

D8 

110 

131 


L1 


L2 


OK2 


L3 


RET 


OK3 


C=C+C 
GONC 
DO=(5) 
DATO=A 
LCHEX 
B=C 
C=DAT1 
CD1EX 
A=DAT1 
?A#B 
GOYES 
D1=C 
D1=D1+ 
C=DAT1 
CD1EX 
A=DAT1 
?B=A 
GOYES 
LCHEX 
GOTO 
ST=0 
D1=D1+ 
A=DAT1 
RO=A 
GOSBVL 
C=DAT1 
CD1EX 
D1=D1+ 
A=DAT1 
A=A+A 
LCHEX 
C=A+C 
R1=C 
GOSBVL 
C=R1 
GOSBVL 
GONC 
GOSBVL 
?ST=0 
GOYES 
GOVLNG 
GOSBVL 
ST=1 
GOTO 
CDOEX 
R2=C 
DO=C 
LCHEX 
DATO=C 
LCHEX 
DO=D0+ 
A=R1 
A=A-C 
DATO=A 
DO=D0+ 
B=A 
A=RO 
D1=A 


xs 

L1 
#C0096 
15 
02A70 
A 

A 


> > 


L2 


Lu 


OKk2 
00202 
ERR 
10 

10 

A 


#050B8 
A 


10 

A 

A 
00004 


#050B8 


#O053AE 
OK3 
#050B8 
10 

RET 
#0393E 
#04A94 
10 

L3 


OZ2A4E 
A 
00005 


» > >» 


Li Li La Li 


Vérification du type des 
arguments (deux entiers) 


Bad Argument Type 


1er essai de réservation 


4 


A=adresse du peek : 


récupération DO D1.BD : 


A=longueur du peek ‘iii 


C=place à réserver 


réservation place en RAM 
se réussit --> OK3 
sinon... 

premier essai ? 

oui --> on essaye encore 
non --> Too Few Mémorÿ) 
garbage collector 

second essai it ui 
on recommence 


R2="place réservée 


écriture prologue chaîne 


A=longueur chaîne 
écriture longueur 
DO="où écrire 


D1="du peek 


Aù premier menu : 


E1 L4 B=B-C A 

8A9 ?2B=0 A 

43 GOYES Lé 

AEO A=0 B 

15B0 A=DAT1 1 

3103 LCHEX 30 

A6A A=A+C B 

3193 LCHEX 39 Transfert 

9EA ?A<=C B 

90 GOYES L5 

3170 LCHEX 07 

A6A A=A+C B 

148 L5'-DATO=A B -' 

161 DO=DO+ 2 "1 15: i 

170 D1+D1+ 1 - sy (y 

3420000 LCHEX 00002 

6ACF GOTO L4 

8F8B050 L6 GOSBVL #050B8 récupération DO D1 B D 
174 D1=D1+ 5 on drope La longueur 
E7 D=D+1 A1 re 

112 A=R2 on remplace l'adresse par 
141 DATI=A A la'chaine: 

142 A=DATO A fin derôut ne 

164: ::D0=D0+ 5 HOGE 159 If 
808c PC=CAD" 0 © ,2HOMOM S à 
O9F20 FIN CON(5) #02F90 fin de structure :‘ 


4 awel Courbis (892)odii «1 oupzrni 


‘h eaY Ile 12 /LCIf on JT 


JUS 





09 pl 


LE FACTEUR EST CONSTANT 


jeoct ft 


ACTE et de 


Une suite est donnée ici à l’article « Le facteur est 

constant » pe dans JC 54. 
L'un des défauts priféibau du HP- 28C est la taille 

restreinte de sa mémoire. Ce défaut ajouté à 


JAY 


Fimpossibilité de faire: apparaître, aux libellés des 


menus, les signes“; +; 2; 7 Et * avait coriduit à’utiliser 
les sigles les plus courts et les plus/explicites possible. 
X+ pour’X"-niveau: 1(X) « à la 
puissance facteur constant » (à présent, au deuxième 
menu), À pour Addition, s pour Soustraction, D pour 
Division, M pour Multiplication. Au deuxième menu : 
R pour Reste, à pour Quotient, -X pour: ** - facteur 
constant « à la puissance niveau 1 ». 


Ces sigles sont relativement peu lisibles. 
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Le contenu des articles de Paul Courbis et de 
Sébastien Lalande (principalement dans JPC 47 et 
JPC 51) permet à présent de pallier cet inconvénient 
et, grâce à l’assembleur, de faire apparaître aux 
menus les libellés suivants : X”, "X, +, -, /, * et -HP, /HP. 
Pour ces deux derniers libellés (Soustraction HP, 
Division HP), voir les pages 5 et 10 de JPC 54 et 
l'assertion de Wlodek Mier-Jedrzejowicz sur 
l'avantage de «soustraire d’une constante et de 
diviser une constante ». 


Les fonctions - et / (du premier menu) sont placées 
respectivement au-dessus des fonctions -HP et /HP (du 
deuxième menu), les symboles - et / se trouvant au 
même emplacement de l'affichage (appuyer 
alternativement sur [USER] et sur [NEXT], pour le voir). 


REMARQUES 


1) Les libellés de menus créés par l’assembleur ne 
peuvent être ourgés de la manière habituelle. 
Cependant, si par appuis successifs de MEM, on sature 
volontairement la mémoire, à un moment apparaît le 
message : 

Out of memory 

Purge 

objet à purger 

Lorsque le libellé de la «fonction à purger» se 
présente, appuyer sur Yes : le libellé disparaît de 
l'affichage. 


2) Sur l’ensemble des cinq menus, on ne peut obtenir, 
comme de coutume, un ordre différent des libellés 
par la commande ORDER. 


3) On ne peut pas visiter le contenu des variables 
obtenues par l’assembleur. 
IL serait certainement utile de 
inconvénients. 


supprimer ces 


DESCRIPTION DES MENUS ET MODE 
D'EMPLOI 


Le maniement du programme est plus aisé si lon 
retrouve toujours les mêmes menus dans l'ordre 
indiqué ci-dessous (avec la petite modification 
apportée à l’article de JPC54 et que constitue 
l'interversion aux menus 1 et 2 des fonctions x” et u). 
Il est préférable, avant d’entrer les programmes, 
d'entrer les noms des variables (leur libellé ayant été 
écourté au maximum). Pour faire cela, stocker dans la 
pile sur vingt niveaux une valeur (1, par exemple) en 
tapant sur la ligne de commande, en mode alpha : 
€ 20 } 1 CON ARRY-+ DROP puis [ENTER]. 
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Activer le mode commAnD. Invalider les modes LAST et 
uNvo. Activer le mode hexadécimal pour les 
opérations sur les entiers binaires (HEX). Entrer 
ensuite les noms des variables de droite à gauche et 
de bas en haut (du menu 5 au menu 1). Entrer le 
programme assembleur (merci encore à Sébastien 
Lalande) : 


« M6JA2O"N SWAP + MO9F20" + + z « HEX M 1 z SIZE 
FOR X "'#i z X DUP2 1 + DUP SUB ROT ROT DUP SUB + 
+ STR+ BR CHR + 2 STEP 'ASSm' STO ASSm SIZE 2 

* # 50000 SWAP - SYSEVAL LIST+ DROP 'ASSm' PURGE 


» » 


puis X ISTO], W [STO], Ctc... 
1451 [STO], etc... 'Z' [STO]. 


E [STO], N [STOI, 


Entrer dans la pile le programme -x (JPC 54 page 
10) : 

«HER OR 

Se référant à Paul Courbis (PC 51, page 15 au 
paragraphe « Global Name »), entrer dans la pile : 
"21D2020E585" X [ENTER] [(STO] 

"x apparaît au menu. 


Par la suite, pour entrer les programmes, utiliser au 
mieux la récupération des données à laide de 
[1 CCOMMAND]. 


Entrer de la même manière : 

le programme Q 

"21D2030F284051 X [ENTER] [STO] 
le programme R 

"210203028405" X [ENTER] [STO] 
le programme X-+ 

121D202085E5" X [ENTER] [STO] 
2? [STO] 

11% [STO] 

le programme M 

"21D2030A202021! X [ENTER] [STO] 
le programme D 

"21D2030F20202 X [ENTER] CSTO] 
le programme S 

"21D2030D20202" X [ENTER] [STO] 
le programme A 

"21D2030B202021! X [ENTER] [STO] 
le programme ? 

« + z « CLEAR z » » ? [STO] 

u [STO] 


A présent que tous les libellés des menus ont été 
entrés, libérer de la mémoire en invalidant COMMAND et 
en stockant en X un nombre, 1 par exemple. La 
variable X est conservée au menu afin d’y pouvoir 
stocker éventuellement un objet sans voir les menus 
se décaler. 


On pourra alors entrer les programmes dont on aura 
le plus besoin. Ils peuvent être tous présents en même 
temps dans la mémoire, mais, dans ce cas, le 
programme !>' (portefeuille) ne pourra stocker que 
trois valeurs. Si l’on souhaitait en stocker un plus 
grand nombre, on pourrait, par exemple, vider de leur 
contenu les variables N et E et leurs routines de service 
Z,U,Vetu. 


Si toutes les routines sont entrées sur une HP-28C, 
version 1CC, MEM indique 212. 


Attendons la venue du programme assembleur pour 
la HP-28$. On pourra alors, avec le programme 2", 
stocker et étudier un portefeuille de plus de trois 
valeurs... 


MENUS 
Initialisations 
Er 1 | 
1) d'elle re : / * | ‘Foncteurs' 
DU el | | (el arithné- 
27 1% | 722, | X° | -HP /HP | “X | tiques 
1e ©f MMarKDpE ST TT 
ET Tex nonie 
3) | Z |n| C %>| | N E | nal <--> 
7 taux ef- 
[Portefeuille fectif 
&)  G H I J K L Routines 
de 
DD Ÿ Z U V W X service 


EXPLICATION DES SYMBOLES 


Par analogie avec le calculateur HP-41 : T est le 
contenu du niveau supérieur, X du niveau 1. 


Libellé Opération Sort réservé à X 
du menu effectuée 
ler menu: 
+ ux+ u lui Ajouter (Add) T 
ux- lui Soustraire T 
# ex u le Diviser par T 
ë Xe Le Multiplier par T 
2ème menu: 
x" NXEE l'élever à ‘puissance T! 
Sort réservé à T 
-HP M x Reste de T moins X 
/HP " /xX" Quotient de T par  X 
"x 1 XI l'élever à puissance X! 


EXEMPLE 


A titre d’exercice, pour vérifier la bonne marche des 
fonctions arithmétiques, appuyer sur les touches 
indiquées, en examinant l’état de la pile après chaque 
appui de touche (en mode sTb) : 


Appuis de touches Résultats en ligne 1 


2 [?] 

SHC] EI 3 
[NEXT] 

C-HPJC-HP]  C/HP] C/HP] 3 

EX] 8 (2°3) 
3 [X°] 9rCSTe 


Philippe Heïlbronn (233) 


MATRICE DE FRACTION 


Admettons qu'après un long calcul avec votre 
machine vous obteniez une matrice de réels dont les 
nombres ne vous disent rien du tout. Vous allez 
répondre : facile ! Je prends chaque réel et j’utilise le 
brillant programme -FRACTION qui prend un réel de la 
pile et renvoie au niveau 2 le numérateur et au niveau 
1 le dénominateur. 


Tout d’abord, voici le programme en question. 
Attention : il traite des approximations et risque donc 
de donner des résultats aberrants pour des valeurs 
inférieures à 10 ou supérieures à 10%. Pour ces 
valeurs, ramenez-vous à un chiffre virgule les autres. 
Lancez le programme et arrangez la fraction ensuite, 
par exemple : 


3333.333333 

divisez par 1000 

faites 3.333333333 +FRACTION 
vous obtenez : 

ê3 10 

15 3 


La fraction est 10/3*1000 soit 10000/3. 
Voici le programme : 


—+FRACTION 
« 
1811 * 1E11-nm 
« n ABS m 
DO 
SUAP OVER MOD 
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UNTIL 
DUP 1000 / IP NOT 


END 

DROP 

n OVER / IP 
m ROT / IP 


» 


» 


Quant à notre matrice, si elle est 4x4 ce peut être 
long. Voici donc un programme qui le fait pour vous. 
Le résultat est affiché et stocké dans C. Placez une 
matrice de réels dans le niveau 1 de la pile et voici le 
programme pour la transformer : 












M+FR : 
« 
+STR ""! SWAP 
Do 
DUP " 1 POS 
DUP2 
1 SWAP SUB 
3 ROLLD 
1 +999 suB  # 
SWAP 
1FERR 
STR+ 
THEN 
ELSE 
+FRACTION 
SWAP -STR 1/1 + 
SUAP STR + "1 + enfin quand 
ne Ce PC arrive euh. 
ROT SWAP + SWAP 
UNTIL 
DUP SIZE 2 == 
END 
+ DUP 1 DISP 'C' STO G 


Sébastien Lalande (442) 





d/ 


UE ce sont les vers at 


en per lent le mieux 
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HP41 


J. Hulaas 


Multiplications de matrices 


12 
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MULTIPLICATIONS DE 
MATRICES 


Le petit chef-d'oeuvre que j'ai l'honneur et lavantage 
de vous présenter est le fruit d’une expérience 
inégalée (la mienne), de méditations approfondies 
ainsi que d’années de recherche intensive. Le logiciel 
en question représente en fait la quintessence de tous 
les travaux jamais effectués dans cette merveilleuse - 
mais Ô combien ardue ! - discipline qu'est l'algèbre 
matricielle (Rien de tel qu’une petite boutade pour 
détendre l'atmosphère !). 


Bien. Il est temps de passer aux choses sérieuses: ma 
création, soit dit en passant, est un véritable petit 
prodige de vélocité et de compacité. Le tout est 
matérialisé par la bagatelle de nonante-cinq pas ou 
instructions (quatre-vingt-quinze pour nos amis 
Français, que je profite de saluer au passage. Quelle 
satisfaction que d’écrire dans un journal a portée 
mondiale et universelle !). Vous conviendrez que c’est 
négligeable si lon prend en considération la 
complexité de la tache effectuée : ce programme 
interactif sait en effet multiplier des matrices de 
nimporte quelle taille pourvu qu'elles soient 
mutipliables et qu'il y ait assez de mémoire à 
disposition pour les stocker. C’est quasiment de 
l'intelligence artificielle ! Pour plus d'efficacité, la 
matrice-résultat n’est pas conservée, mais des 
modifications mineures permettront d'y remédier 
pour ceux qui se sentiraient lésés. 


Autre caractéristique : la robustesse et la 
transparence de l'interface utilisateur. IL vous 
apparaîtra que ce logiciel est totalement implantable 
si vous suivez à la lettre le mode d’emploi dont vous 
pourrez d’ailleurs rapidement vous passer avec un 
peu d'exercice. 


Mode d'emploi 


Admettons que vous désiriez effectuer le produit 
suivant : 


[2 0 0 ol 
[1 2 3] *[0 2 0 ol 
4 5 6| [0 0 2 ol 


1- Avant de lancer le programme, il faut spécifier la 
taille des deux matrices. Quoi de plus approprié que 
la pile pour entrer quatre données numériques ? 
Vous faites donc [21 [CENTER] (la première matrice 
comporte deux lignes), puis [31 CENTER] ( nombre de 
colonne de cette matrice), ensuite CENTER] (la 
deuxième matrice a trois lignes), et, enfin 
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[4] IXEQ "MM“] (on lance le programme avec en X le 
nombre de colonnes de la deuxième matrice). Si ces 
données sont exactes, et qu’un sournois DATA ERROR 
vient s’afficher, c’est que les deux matrices ne sont pas 
mutipliables. 


N.B. Ces valeurs doivent être des nombres entiers. 
Les dimensions réelles, négatives et complexes seront 
implémentées dans une version ultérieure du produit. 


2-Le programme calcule la taille mémoire 
nécessaire. Si besoin est, il demande d’effectuer un 
SIZE. 

3- A l'apparition du prompt Ok, vous pouvez 
commencer à entrer la première matrice, ligne par 
ligne, donc 111 IR/S] [2] [R/S] [3] [R/S] … jusqu’à 
l'affichage du message FIN. Commence alors la saisie 
de la deuxième matrice. Comme le programme ne 
modifie jamais la pile, vous pouvez l'utiliser pour 
effectuer toutes sortes de calculs, ou simplement pour 
stocker des valeurs qui apparaissent souvent. Saisie de 
la deuxième matrice: [2] IR/S1 [0] 4*[R/S] [X<>Y] 
[R/S] [X<>Y] [R/S] … 


4- Affichage des composantes successives de la 
matrice résultat: 


[2 4 6 0 
[8 1012 0! 


Appuyez sur [R/SI pour faire apparaître Ja 
composante suivante, jusqu’à affichage du message 
FIN (si vous faites IR/S1 une fois de trop). Ici 
également, vous pouvez utiliser la pile pour effectuer 
des calculs à votre guise ; cela n’affectera en rien 
l'exécution du programme. 


Mon exposé touche à sa fin ; je pense que le jury 
n'aura pas été insensible à la sincérité de mon 
plaidoyer et je ne puis donc que lui demander de se 
montrer indulgent envers les autres candidats du 
concours. 


COMMENTAIRES 


Ligne 1 : C’est bien choisi comme nom je trouve. 
C’est très parlant. 


Ligne 2 : Permet d’utiliser la même routine de saisie 
pour les deux matrices. 


Ligne 3 : Permet des VIEW AVIEW sans interrompre 
l'exécution. 


Ligne 4-6 : Stockage du nombre de colonnes de la 
deuxième matrice. 





Lignes 8-13 : Peut-on manipuler les deux matrices ? 
Si ce n’est pas le cas, affichage de DATA ERROR en deux 


octets par grâce à un subterfuge que je vous laisse 
apprécier. RTN en cas de SF 25. 


Lignes 14-27 : Calcul du nombre de composantes des 
matrices et de la mémoire nécessaire a leur stockage. 


Lignes 28-40 : Routine aimablement empruntée à HP 
(module MATH T); teste si le nombre de registre à 
disposition est suffisant. Sinon, on demande à 
l'utilisateur de reconfigurer la mémoire. Les 
instructions SIZE? et PSIZE permettent d’automatiser 
cette procédure, pour ceux qui possèdent une 41CX 
ou un module X-Functions. 


Lignes 41-44 : Le prompt "ok" dans le registre X 
indique que la machine est prête, que l'utilisateur ait 
ou non effectué un s1ZE. Le message FIN reste dans le 
registre ALPHA jusqu’à le fin du programme; des AVIEW 
indiqueront successivement le fin de la saisie de la 
première et de la seconde matrice, et l'affichage des 
résultats. 


Lignes 44-55 : Saisie des matrices à multiplier: Cela 
peut sembler beaucoup, mais dans ce cas, c’est tout 
de même plus économique que de calculer les 
paramètres d’une boucle 1s6 simple. La pile n’est pas 
touchée, donc entièrement a la disposition de 
l'utilisateur pour effectuer des calculs pendant la 
saisie (ce qui n’est pas le cas des programmes du 
module MATH). LBL 05: instruction bidon 
necessaire après 156. 


Lignes 56-61 : Initialisation avant la multiplication. SF 
21 pour imprimer les résultats. Le registre 04 doit 
être modifié plusieurs fois, dons on lui assigne une 
valeur interprétée rapidement et qui prend peu de 
place (cLx). De nouveau, on utilise un registre de plus 
que le minimum, mais C’est préférable au calcul des 
valeurs de départ, d'arrivée et d’incrémentation d’une 
boucle ISG simple. 


Lignes 62-95 : Multiplication. Les lignes 70 à 81 
implémentent le produit scalaire des deux vecteurs 
pointés par R03 et ROS. Ainsi que vous pouvez le 
constater, le programme utilise les registres 00 à 08 
comme pointeurs ou pour le stockage d'informations 
diverses. Les matrices sont placées séquentiellement 
ligne par ligne à partir de RO9. Si vous désirez 
modifier le programme pour le rendre compatible 
avec le module MATH I, il y a donc suffisamment de 
marge, puisque ce dernier réquisilionne les 15 
premiers registres pour son utilisation (cf mode 
d'emploi du module pages 56-58). N'oubliez pas que 
ce module ne traite que les matrices carrées. 


O1*LBL "MM" 
SF 05 CF 21 STO 02 STO 04 STO 08 RDN X=Y? 
GTO O0 CLX 1/X RTN 


13*LBL 00 

STO 01 STO 03 STO* 04 RCL Z STO 00 STO* 03 
RCL 04 8 STO 05 RCL 03 STO 06 + STO 07 + 
SF 25 ST IND X FS?C 25 GTO 01 1 + "ZE " 
ARCL X ASTO X ‘SET SI! ARCL X AVIEW 


40*LBL 01 
"OK" ASTO X "FIN" 


&&*LBL 02 
ISG 05 


&6*LBL 05 

STOP STO IND 05 DSE 06 GTO 02 AVIEW RCL O4 
STO 06 FS?C 05 GTO 02 SF 21 CLX STO 04 9.9 
STO 05 RCL 01 


STO 06 ISG 04 


65*LBL 05 
RCL 04 RCL 07 + STO 03 CLST RCL 02 


72*LBL 04 

RCL IND 05 RCL IND 05 %* ST+ Z ISG 05 RDN 
ST+ 03 DSE 06 GTO 04 VIEW Y RCL 01 STO- 05 
DSE 08 GTO 03 RCL 02 X<> 08 STO 04 X<>Y 
ST+ 05 DSE 00 GTO 03 AVIEW END 


| 
62*LBL 03 
| 
| 


J. Hulaas 
PPC Lausanne 









Pour quoi n'y 


e Fil Jamais de 
Jeux dêns ce 
Journal ? 







Pc 
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CATALOGUE DES MOTS 
(ACTE Il) 


Au mois de juin 1987 paraissait une série de 
programmes qui pouvaient décrypter le dictionnaire, 
c’est à dire en donner le contenu en séparant mots 
programmes et variables des mots vocabulaires. 
Cependant, il comportait un bug que je développerai 
plus loin. Alors voici la version 2.1, corrigée et 
améliorée car elle fournit l'indication de mot 
immédiat. D’autre part, j'ai découvert que les 
procédures pouvaient s'appliquer en lieu et place du 
mot VLIST (voir manuel). Je vous invite donc à 
reconsidérer l’ensemble. 


LE BUG ET LE FLYTOX 


Flytox est le nom d’un insecticide produit par 
l'Ethiopian Drug & Food Corporation ou quelqu'un 
dans le même genre. Avec l’ancienne version de 
CATALOG, vous avez peut-être remarqué que le 
programme affichait correctement les entrées du 
dictionnaire à deux lettres près. En effet, la première 
et la dernière lettre étaient remplacées par des 
caractères différents. Ce défaut disparaissait avec 
l’ordre Basic : CHARSET "", En fait le problème réside 
dans la structure d’un mot Forth. 


Un mot est codé selon la trilogie LFA, NFA et CFA. 
Rappelons que le LFA (Link Field Address) est un 
pointeur qui relie le mot à celui qui le précède dans le 
vocabulaire d’attache (voir l’article de juin 87). Le 
contenu du LFA est le NFA du mot précédent. Le CFA 
(Code Field Address) contient l’adresse du mot qui 
assure l'exécution. L’illustration du propos est donnée 
par la structure : … CREATE … DOES> … ; un mot qui 
aurait été défini par cette structure a un CFA dont le 
contenu pointe après le mot DoEs> . Mais revenons au 
générateur de bug, je veux parler du NFA. 


Le NFA (Name Field Adress) contient le nom du mot 
mais aussi quelques paramètres. Le premier octet du 
NFA est divisé comme suit : 

1 | pr | sm | Lon | 

-sm signifie snudge bit. C’est un bit qui indique au 
système que le mot est bien défini. Il est d’ailleurs le 
point de départ de manipulations d'intérêt. 

-pr signifie precedence bit, cest lui qui donne le 
caractère immédiat d’un mot. Un mot est dit 
immédiat lorsque son action n’est pas modifiée par le 
mode compilation. Exemple : 

: HOP 4 EMIT ; IMMEDIATE 
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L'action de IMMEDIATE est de rendre immédiat la 
dernière entrée dans le dictionnaire. Si on fait Hop, on 
a un « à l'écran. 


: TOTO ." bonjour! HOP ; 


Tiens, bizarre, le à apparaît. Hop s’est exécuté pendant 
la définition. De plus TOTo ne produit aucun à pendant 
son exécution. HOP est un mot immédiat. 


-lon est la longueur du mot, codée sur 5 bits. 
Indépendamment de cela il existe une variable Forth 
qui définit la longueur maximale des mots : WIDTH. 


Dans le NFA, les octets suivants contiennent le nom. 
Seulement le premier et le dernier caractère sont 
codés au delà de 127 en ASCII. Ce codage sert au 
système pour sa gestion des mots, en particulier le 
mot TRAVERSE s’en sert. 


LE CATALOGUE SYSTEME 


Les mots du système sont regroupés dans des tables 
situées en E0005. A cette adresse se trouvent 13 
pointeurs dont le contenu est équivalent à celui de 
CONTEXT pour le dictionnaire FORTH. Donc partant des 
derniers NFA, il suffit de remonter la chaîne. C’est 
assez simple non ? Les mots sont classés par taille 
égale, un à douze caractères. 


US ET COUTUMES 


CATALOG € -- ) 

Liste les mots du dictionnaire en commençant par les 
derniers définis. CATALOG ne remonte pas au delà du 
mot définissant le vocabulaire de contexte. Les 
touches flèches (111 et 111) permettent de se déplacer 
dans la chaîne. A tout instant, il est possible de sortir 
du programme en appuyant sur la touche [ON]. 
Codification : 

i : indique la classe immédiate du mot, 

* : indique que le mot est protégé par FENCE, 

w : signifie simple mot (word), 

vo. : indique que le mot représente un vocabulaire, 
ct. : si le vocabulaire est celui de contexte, 

cu. : si le vocabulaire est celui courant. 


SYSCAT ( n -- ) 
permet de faire le catalogue des mots système dans 
lune des 13 tables (0 < n < 12). syscar s’utilise 
comme CATALOG. 


MEM Ç--n) 
ce mot donne la place disponible. 


HEX : SYSCAT € A -: ) 
( destiné à lister le système ) 
( on teste que D < n < 12 ) 


: PR-WORD Ç nfa -- ) DUP O< NOT ABS * 
DUP COUNT 1F AND DUP B - DUP 0> * + 
(€ affichage Lettre par Lettre du nom ) ( on se positionne dans la table ) 
2* OVER + SWAP DO 5 * E0005 + 
1 Ca 7F AND EMIT ; ( on sauvegarde la variable CONTEXT ) 
2 +LOOP CONTEXT DUP à ROT ROT 1! 
SPACE CATALOG CONTEXT ! ; 
( test des mots protégés ) 
DUP 5- FENCE à < DECIMAL 


IF ."! *i ELSE SPACE THEN 
( test des mots immédiats ) 


SPACE DUP Ca 40 AND Xavier Bille (203) 
IF ."" if ELSE SPACE THEN 
SPACE 


1 TRAVERSE 2+ DUP à E7160 = 

( décryptage d'un mot vocabulaire ) 

IF ."" vo: ! 9 + DUP 
( Le tester par rapport au voc. courant ) 
CONTEXT à 
IF ." ct. ! ELSE 4 SPACES THEN 
CURRENT à 
IF ." cu." ELSE 3 SPACES THEN 

ELSE DROP .'! w.1 

THEN ; 


CATALOG € -- ) 
€ empêcher l'interruption ON ) 
F 2F441 N! 
( déplacer La pile ) 
SO >R SPa SPO ! 
(€ on remonte la chaîne à partir du dernier NFA ) 
CONTEXT à à 
BEGIN 
DUP PR-WORD 
KEY CASE 
E OF ( [ON] ) 
SPI R> SPO ! O 2F441 1! 
-1 ENDOF CR 
12707: LC IT 
CONTEXT à OVER U< 
IF DUP 5- à DUP 0= y 
IF DROP THEN THEN 
O0 ENDOF 
13 OF ( [V1 ) 
DEPTH 1 > IF DROP THEN 
O0 ENDOF ( 
O0 SWAP 
ENDCASE 
UNTIL ; 





2: MEMÇ --n) 
C MEM donne Le nombre de quartets disponibles ) 
SPa 1C1 - HERE - ; 
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L'ASSEMBLEUR DU 71 
(ACTE VII) 


Chers amis, bonjour. Avant de commencer la 
septième partie de notre initiation à l’assembleur du 
HP-71, je voudrais préciser certaines choses. 


Comme vous le savez depuis le début du mois de 
mars, je n’ai plus de HP-71 à ma disposition. Il 
m'était donc difficile de continuer cette série 
d'articles. Grâce à Jean-Jacques Dhénin qui m'a 
gentiment prêté un HP-71, j'ai pu finir cet article 


commencé en octobre dernier. Je tiens donc à 
remercier Jean-Jacques. 


Nous sommes en mai au moment où je rédige cet 
article. Ce dernier achève la série des actes consacrés 
à l’écriture des fonctions. Il y a maintenant environ un 
an que cette série à débuté. A l’origine, mon intention 
était d'aborder, après l'étude des fonctions, celle des 
ordres ainsi que divers aspects du HP-71 et du 
module HP-IL. 


N'ayant plus de HP-71 et pour l'instant pas l'intention 
de m’en procurer un autre, il m’est donc difficile de 
continuer. De plus, je dois quitter la France pour 
quelques mois. 


Les choses n’iront donc pas plus loin. Vous l'aurez 
compris, cet article est le dernier de cette série 
jusqu’à nouvel ordre. 


Depuis le début, j'avais espéré que d’autres viennent 
me soutenir dans ma démarche. J'espère maintenant 
que d’autres viendront prendre la succession et, dans 
ce cas, je suis tout disposé à les aider. En tout cas, je 
souhaite que tous mes efforts n’aient pas été vains. 


N'ayant pas pratiqué d’assembleur depuis 4 mois, il 
m'a été difficile de m’y remettre, surtout que jai 
utilisé pendant ce temps d’autres microprocesseurs. 
J'espère donc que vous serez indulgents à mon égard 
quant à la qualité de ce dernier acte. 


Voici donc cet article. Lors du dernier acte datant de 
février, je vous avait invité à réfléchir sur l'écriture de 
deux fonctions ressemblant à LEFT$. Il s’agit de RIGHTS 
et de Min$. Je vous propose aujourd’hui le Lex 
MICLEX qui reprend ces trois fonctions du BASIC 
Microsoft. 


J'ai modifié un peu le code de LEFT$ mais je pense que 


le dernier article et les commentaires suffiront pour 
comprendre son fonctionnement. 
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Je rappelle que RIGHT$(A$,n) renvoie les 7 caractères 
les plus à droite de A$. Comme le ferait A$[LENCAS)-n]. 
La fonction MID$ prend 3 paramètres dont deux 
numériques. Ainsi MID$(A$,p,n) renvoie les 7 premiers 
caractères de A$tpl. De même on pourrait remplacer 
MID$(AS,p,n) par A$ [pl] [1,n1]. 


Pour compliquer les choses et pour rendre MID$ 
complètement compatible avec son homologue de 
Microsoft, le troisième paramètre est optionnel. Ainsi, 
lorsque » est absent, MID$(A$,p) renvoie la même 
chose que LEFT$(A$,p) ou encore que A$ [p1. 


Comme d'habitude, plutôt qu’un long discours, je 


vous livre le Lex. Et quelques explications 
supplémentaires le suivent. 

LEX 'MICLEX! 

ID #5C 

MSG 0 

POLL 0 

TITLE Fonctions Microsoft 

Li J.B. janvier 1988 pour Acte VII 

% avril 1988 
POPIN EQU #0BD1C dépile un nombre de La MS 
FLTDH EQU #1B223 conversion en hexadécimal 
POP1S EQU #0BD38 ‘'dépile un chaîne! 
ADHEAD EQU #181B7 ajout de l'en-tête 
ARGERR EQU #0BF19 renvoie ERR:Invalid Arg 

ENTRY LEFTe 

CHAR  #F fonction 

ENTRY MIDe 

CHAR _#F fonction 

ENTRY RIGHTe 

CHAR _#F fonction 

KEY ILEFTS$! 

TOKEN 15 

KEY 'MIDS$! 

TOKEN 16 

KEY IRIGHTS! 

TOKEN 17 

ENDTXT 


STITLE LEFT$ 


OROROROHORORR He eHe e he ee ee he ee e RRRe ke 


HORRRORORROR HE eh he He ee ee ee A M he RH RAR 


x x 
#**  LEFTS : ** 
x x 
+ syntaxe : LEFT$(<chaîne>,<nombre>) "x 
x x 
"* but : renvoie Les nombre caractères  ** 
* Les plus à gauche de chaîne Pr 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Soyez sans crainte, nous vous 
retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 

"?" centre un titre, par exemple : 
©TITRE 


"\'(CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Romans. Les 


possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 


DEF KEY 'fW!, CHR$(197); (é) 
DEF KEY ‘fE', CHR$(193); té) 
DEF KEY 'fR', CHR$(201): (è) 
DEF KEY ‘fY!', CHR$(203): (ù) 
DEF KEY 'fU!, CHR$(195); çà) 
DEF KEY ‘fl!, CHR$(209); (5) 
DEF KEY ‘fO!, CHR$(194); (ô) 
DEF KEY ‘f/!, CHR$(92); (0 
DEF KEY 'fA!, CHR$(192): (à) 
DEF KEY ‘fS', CHR$(200); (à) 
DEF KEY ‘fD', CHR$(205); (ë) 
DEF KEY 'fJ!, CHR$(207); çü) 
DEF KEY 'fK!, CHR$(221); Ci) 
DEF KEY 'f*!, CHR$(124); (1) 


DEF KEY 'fC', CHR$(181); Cc) 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l’accès en métro, trois possibilités s'offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ab, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions... À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 17 septembre 1988 

Samedi 1 octobre 1988 

Samedi 5 novembre 1988 

Samedi 3 décembre 1988 

Samedi 7 janvier 1989 

Samedi 4 février 1989 

Samedi 4 mars 1989 

Samedi 6 mai 1989 

Samedi 3 juin 1989 


Pierre David (37) 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- de lecteurs de cartes magnétiques pour HP-71, neufs, dans leur boîte d’origine, avec 5 cartes magnétiques, 
pour 500 F (port compris), 

- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais d’affranchissement, 

- d’une année complète de numéros de JPC (février à janvier) pour 300 F (offre spéciale) port compris, 

- des I.D.S. du module Forth / Assembleur (listing interne commenté par HP) pour 250 F (port compris), 

- des VASM pour HP-41 (listings des Roms internes commenté par HP) pour 300 F (port compris), 

- de manuels de service du HP-41 au prix de 75 F (port compris), 

- de manuels de service du HP-75 au prix de 75 F (port compris). 


En outre, le module JPC Rom pour HP-71 est disponible. Vous nous adressez votre Eprom CMT (de 
préférence 64 Ko), et nous la programmons suivant une des options ci-dessous : 

- JPC Rom + Manuel, pour 600 F, 

- JPC Rom + Manuel + vos propres programmes, pour 800 F, 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 


VOUS EN VOULEZ 


Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande 

Qté Prix Unitaire Prix Total 
lecteur de cartes pour HP-71 x 500 FF 
anciens numéros de JPC x 47,40 FF 
année complète de JPC x 300 FF 
1.D.S. du module Forth x 250 FF 
V.A.S.M. X 300 FF 
Manuel de service pour HP-41 x 75 FF 
Manuel de service pour HP-75 x 75 FF 
JPC Rom + Manuel x 600 FF 
JPC Rom + Manuel + vos propres programmes x 800 FF 

Total FF 


Préciser éventuellement Les 
numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 


Nom PAST ES TT RES TE SO ES OEM LE LEE PTE] 
Prénom |_[_|_[_1_1_[_1_1_1_1_1_1_1_1_1_1_[ Date de naissance |_|_[/1_|_1/1_1_| 
RCesne Re (OO ERA CR TE ET NET PE ARE Eqe] 
LASER SEC AS ARR ES TETE TO PT TAEÈ 
A PA 4 AE A, NN CN PE 
ea Po po a AS ep a 
Goce Pastel. | ARTS NUE TEEN ST EN EANm OS RÉ PUION ENS dE AT UT 
Téléphone Domicile [_|_|_1_[_1_1_1_1_1_1_-1-1 Bureau |_1_1[ [21 121212121211 


Profession 
Intérêts 











Matériel HP en votre possession 





Autre matériel informatique 


—————_————_— 





Comment avez-vous connu PPC Paris ? 


nn 


oo 


Que recherchez-vous au sein de PPC Paris ? 





a 


———————————————Z 


La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 


en oeuvre des traitements informatiques comportant des informations nominatives 
le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à (l'égard d'autres personnes ou 
organismes) pour publication dans le Journal de liaison, sans obligations ni 


responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_|[_1/1_1_1/191 [21 
Signature, précédée de La mention "Lu et Approuvé!'! 


Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 


Paiement effectué Le |_|_|/|_|_|/19|_|_|[ à L'ordre de PPC Paris, 
par [1] chèque bancaire, [ ] chèque postal ou [ ] mandat Lettre 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


**k **k 
He he de ee ee HE HR RCORRRRRAOROAK 


dede he de eh he eee oh he ee eh ee he ee ARR OR Re 


NIBHEX 8422 
LEFTe GOSUB getN&s 


Syntaxe : LEFT$(A$,n) 


ici : RO=n 
D1 * fin de A$ 
ALA] = LEN(AS$) 
on fait R1 = D1 + AA] 


*X OX * * 


CD1EX 
C=C+A A A ” début de A$ 
R1=C R1 aussi 


GOSUB getmin renvoie MINC(RO,A[A]) 


* jci : ALA] = MIN(N,LENCA$)) 
on calcule alors R1 - ALA] 


* 


C=R1 
C=C-A A 
D1=C 


* jci : D1 ”* fin de chaîne à renvoyer 
" R1 * début de A$ 


adhead ST=0 0 
GOVLNG ADHEAD 


pour ADHEAD 


STITLE MID$ 


HORORRER HOME eh he ee COACH 


Me he he he he ee ee ee ee ee eee ee he ee eh ho eee 


**x kk 
“* MIDS : ** 
x x 
xx syntaxe : MID$(<chaîne>,<pos>[,<nombre>]) ** 
x *k*k 
* but : renvoie au plus nombre x 
ii caractères de chaîne à partir ** 
“ du p-ième compris ** 
x **x 


ee he he eee eh eh ee oh he ee he ee RH Re 


RAA HR HO RD AAA AAA OROR OR ORRRRR 


NIBHEX 88423 Syntaxe : MID$(AS,pl,n]l) 
MIDe CPEX 15 P = nombre de paramètres 


on utilise ST[1] pour coder Le nombre de 

paramètres de La facon suivante : 

codage : ST[1] = O0 indique 3 paramètres 
ST[1] = 1 indique 2 paramètres 


# * * *# 


ST=1 1 on suppose qu'on a 2 param. 
?P= 2 est-ce vrai ? 

GOYES para2 

ST=0 1 sinon ST[1]=0 pour 3 param. 


para3 GOSBVL POPIN 
GOC argerr vérifie si n est complexe 
D1=D1+ 16 pointe l'objet suivant : p 
GOSBVL FLTDH Alw] --> A[A] en hexa 
GONC argerr si out of range 
A=A+A À 
R2=A sauvegarde 


on récupère n 


multiplication par 2 


para? GOSUB  getN&sS 


* ici : RO=Pp 

> R1 * début de A$ (ALA] aussi) 
* ALA] = LEN(AS) 

* on fait R1 = DI+LEN(AS)-p+2 

* 


en vérifiant au passage que p n'est pas nul 


CD1EX 

B=C A sauvegarde de D1 

D1=C on remet D1 à sa place 
C=C+A A C = DI+LEN(AS$) 

A=RO ALA] = p 

?A=0 A si p=0 


GOYES argerr alors erreur 


C=C-A À C = DI+LEN(AS)-p 
C=C+1 C = DI+LENCAS)-p+1 
C=C+1 À C = DI+LEN(AS)-p+2 


* ici : C[AJ]=D1+LEN(AS)-p+2 
* on vérifie que C n'est pas remonté au dessus 
* de D1 en utilisant gtmine 


A=B A A * fin de A$ 
GOSUB gtmin2 
R1=C Ri=min(D1,D1+LENC(AS)-p+2) 


* R1 est donc bien placé en début de La chaîne 
* à renvoyer et D1 en fin. On appelle alors ADHEAD 
* si MID$ à été appelé avec deux paramètres. 


2ST=1 1 
GOYES adhead 


2 paramètres ? 


* sinon on ajuste D1 en fonction de p 
* jci : C * toujours Le début de La chaîne 
* on fait C = C-p 


A=R2 on récupère p 
C=C-A A C = C-R2 


* on vérifie également que l'on remonte pas au 
* dessus de La fin de La chaîne. On utilise encore 
* gtmin2 et on met dans D1 Le maximum de D1 et C. 


A=B A A * fin de chaîne 
GOSUB gtmin2 

D1=C C ” fin de la chaîne à 
= renvoyer 
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GOTO adhead 


argerr GOVLNG ARGERR 


STITLE RIGHTS 


KR HR He ke DH AH ee he he He eh he AR RO A 


AAA HR Dh eh Dh ke 0e oh eh He he ee eee he ee ee eh ee Re 


**k **k 
#* RIGHTS: : "x 
x x 
x syntaxe : RIGHT$(<chaîne>,<nombre>) “x 
x x 
** but : renvoie Les nombre caractères  ** 
"+ Les plus à droite de chaîne "+ 
x ** 


KOMOKOMOMONMH MACRO OK He he RH HR ARR ee 


RH OR HR HEAR AAA OM D he HA A OA he A A A Re 


NIBHEX 8422 
RIGHTe GOSUB getN&s 


Syntaxe : RIGHT$(AS,n) 


# ici : RO = n 

D1 * fir de A$ 

ACA]J = LEN(AS) 
D1 est donc déjà placé pour ADHEAD 
on fait R1 = D1 + MIN(n,LENCAS)) 


* + *#+ * 


GOSUB getmin 


* ici : ALA] = MIN(n,LEN(AS)) 
* on calcule alors D1 + A[A] 


CD1EX 

A=A+C A 

R1=A RI=MINÇ(N,LENCAS) }+D1 
CD1EX 


* cr DT fih-de AS 
* R1 * début de La chaîne à renvoyer 


GOTO  adhead 


STITLE Divers 


KKKARKRKRRRRERRRRRRRRRERRARRERRÉRREEERRERERRRRRRAËÉ 


KOKOKOHOK HOKKOKOK KR AH AO ARR DRURE R  AR RRk ke 


** Nom : getN&s 


x 


** Catégorie : Math Stack Utilities 


**x 

ABOU 3 

an dépile un nombre (n) et une chaîne (A$) 
La de La Math Stack 

*k 


** Entrée : 
“e D1 = haut de La Math Stack 
**x 

*%* Sortie’: 
++ D1 


fin de la chaîne 
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ue ATA] = LEN(A$) 
5 RO = 2.n 
%x 


** Appels : POPIN, FLTDH, POP1S, argerr 


xx 


** Utilise : A,B,C,D1,R0,XM 


xx 


** Histoire : 


xx 

à Date Programmeur Modification 

MR sonsauas sjivedcuace atout lala LT 
** 12/01/88 J.B. Conception et codage 
x 


ROCK HRK HRK H OH DH HO OREOHROROAHHORHRHHeACA R e e eee 


KOKHHK KE HA HEAR HORDE OR AA AR ARR RER RAR 


getN&S GOSBVL POPIN AIW] =n 
GOC argerr si complexe : erreur 
D1=D1+ 16 pointe A$ 


GOSBVL FLTDH ATW] --> ALA]J en hexa 
GONC argerr si out of range ou NaN 
A=A+A A multiplication par 2 
RO=A sauvegarde 


GOSBVL POP1S ALA] = LEN(A$),D1 * chaîne 


RTN 


RORAOK He AH he he eh He HA A ee ee ee ee 
RAC He 0e HA he ee A A eh he ee ee eee ee ee ee 
** Nom : getmin 
“+ gtmin2 


x 


** Catégorie : 


22 

#*x put 

# getmin : renvoie ALA] = min(RO,A[A]) 
+ gtmin2 : renvoie A[A] = min(C[A] ,A[A]) 
x 


** Entrée : 


#*x getmin : données dans RO et AA] 
+ gtmin2 : données dans C[A] et AA] 
x 


#x Sortie”: 


"* ALA] = plus petite des deux données 
. C[A] = plus grande des deux données 
**k 


** Appels : aucun 

xx 

*x Utilise : getmin RO,C 
** gtmine A,C 


xx 


** Histoire : 
x 


*- Date 
NP OR SSS 


** 12/01/88 J.B. 
** 29/04/88 J.B. 


Conception et codage 
Commentaires 





**x 
He He RER he he HU he he eee he eh Re he ARR 


HOMHHE HER HEHROMRHREOR RE RORRCRRARRRORO RAR KR RO RO ARR RAR 


getmin C=RO on récupère n 
gtmin2 ?A<C A LENCA$) < n ? 
RTNYES si oui on laisse 
ACEX A si non on échange 
RTN 
END 


Lu 2 


Comme je l'ai déjà dit, le code de LEFT$ a été 
légèrement modifié, mais rien de bien compliqué. La 
sous-routine getN&S sert à dépiler une valeur 
numérique de la pile, à la convertir et à la 
sauvegarder avant d'appeler Pop1s qui se charge de la 
chaîne à traiter. 


Le code de RIGHTS est identique à celui de LEFTS pour 
le début. Les choses varient pour MID$ : 


En effet, dans ce cas, il faut gérer la présence ou non 
d’un troisième paramètre. Je rappelle que, lors de 
l'entrée dans un Lex, cts] contient le nombre de 
paramètres. On utilise alors le registre P comme 
intermédiaire et on dépile la valeur de n si besoin est 
à partir de l'étiquette para3 et on la sauvegarde dans 
R2. 


Ensuite, et pour les trois fonctions, une fois getn&s 
appelé on se retrouve avec la pile dans cette 
configuration : 


D1 --> 


| 
+ 

| 

|  A$ 

| 

| 


+ 


| 
+- 
| 
+. 
| di) 

Et AA] contient la longueur de A$. Il faut donc 
positionner correctement D1 et R1 avant d'appeler 
ADHEAD qui terminera notre code. Il faut placer R1 au 
début de la chaîne à renvoyer et D1 en fin. 


Dans le cas de LEFTS, il faut placer R1 en début de A$ 
(R1 = DI+ALA]) et D1 en Ri-n. Pour RIGHTS, il faut 
mettre R1 en DI#LEN(A$)-n et on ne touche pas à D1. 


Enfin, dans le cas de MID$, on place R1 comme pour 
RIGHTS et D1 en fonction de valeur du troisième 
paramètre. 


Dans tous les cas, lors du calcul d’un nouveau 
pointeur, il faut s’assurer que l’on pointe toujours sur 
des caractères de A$ et qu’en particulier on ne 
remonte pas au dessus de la valeur de o1 du schéma. 
En effet LEFTSC'PPC',45) ne doit renvoyer que trois 
caractères et pas plus. 


Cette vérification est l’objet de la routine getmin que 
l'on utilise dans les trois fonctions. 


Comme pour Lock$, on quitte donc le Lex en 
renvoyant le résultat par ADHEAD. 


Les routines HP utilisées dans ce Lex ont déjà été 
vues lors d'articles précédents. Vous ne devriez donc 
avoir aucune difficulté à comprendre le 
fonctionnement. Je vous renvoie à la bibliographie 
des actes précédents pour plus d'informations. 


Voici donc qui termine cette série d’articles consacrée 
à l’assembleur de notre chère machine. Je tiens à dire 
que quel qu’ait été l’impact de ces articles auprès des 
membres du Club, cette expérience aura été pour moi 
enrichissante. 


Si je n’ai plus de HP-71, j'ai toujours ma HP-41. Je 
reste donc inscrit au Club et en contact avec mes amis 
membres avec qui j'apprend beaucoup, même si 
maintenant je vais prendre mes distances avec 
PPC Paris pendant quelques temps. 


A tous merci. et au revoir, 


Jacques Baudier (192) 





LE TEMPS ENCHAINE 


Je profite d’un petit moment de tranquillité pour 
prendre le temps de vous écrire. Je suis, en général, 
trop pris par mes études où mon club de natation 
pour le faire, mais, en ce moment, mes études me 
laissent un peu de répit. 

Je tiens à vous remercier de m'avoir si vite envoyé 
l’assembleur Areubh. Il est fantastique, et j'en ferais la 
publicité. Grâce à lui, j'ai repris un vieux Lex que 
j'avais écrit en pokant dans un fichier texte. Ce Lex 
implémente une fonction que j'ai connue sur la HP-41 
(que de souvenirs, sniff...), mais que je n’ai jamais vue 
sur le HP-71. 
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Il s'agit de la fonction HMS$ qui transforme un réel 
représentant, un,.nombre de secondes (comme. TIME 
par.exemple),en chaîne au format : 

LHHEMMISSUCC 9] 

En cas de donnée erronnée, la fonction: rend la 
chaîne : 

.+29- n 

J'ai placé des Dans: au. début del cette hMi0es car 
dans mes applications, j'utilise rarement les heures et 
«J'écris souvent HMS$CX) 141 pour les men ppanere ti 


Je vous envoie ce sen Lex, et espère qu wil sera le 
premier d’une | longue série. Fai en préparation !la 
suite logique de cette fonction un chronomètre dans 
le plus: pur, style HP-41,;:mais pour, Fiastant sans 
stockage des temps intermédiaires, Inothorn 


Anenblcureent die. 


* Si opérande 


*. 


PASBON, 


vyTt 


«Frédéric Vadez (79) , fl 
Ï f t'{ 1 } Tr 
y DJ5 BTUE DONSITÈCZ i Li 
LEX  'VADLEX! ferééoit 
ID #5D 
Î MSG Quoi ic 4} ) 2ylc 
118 200P0brs Outre m3 ! if fic 
:EXPR. EQU +, #OF23C 16 iUp 076 etdrir 
STRHDR EQU | FERA no 
ENTRY  XHMS. 
CHAR #F La 12 O1 2 
KEY "HMS$! 
TOKEN 1 
ENDTXT ; bus 1 | 
NIBHEX 811 
XHMS  A=DAT1 W Lecture opérande dans A . 
_ST=0 O0 Initialisation du marqueur 
Ë de nombre négatif 
GOSUB FORMAT Vérifie format de l'opérande 
GOSDE | PRANSE |! EF fectue,La! transformation 
* proprement dite 
SORTIE GOVLNG EXPR Termine La fonction 
* 


hors, norme alors rendre: "-?2:1 


1j >b 201191 kb: 


SETHEX. et uo 29bi nt 54 2h qui 
P= ,.,,,0 «Préparation d'un.en-tête ;, 
c=0 W de chaîne alpha inoesis 
LC(2) #10 de La longueur 
D1=D1+.16,. ; voulue pour, placer 

| GOSBVL STRHDR Le message, réponse: 

LCASC, ! 122! 

DATI=C, W Ecrit message dans Là pile 
CERSTK,. on saute -un RTN 

D1=D1: .16 on pointe Le haut de file 
GOTO SORTIE et on sort 
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* Formattage de l'opérande et éjection des données 
*-invalides: INF; :NaN et hors normes donnent "2222" 


FORMAT P= 


POSITI + 


j 


TRANSF 


iESLi! 
BCEX,. 
>'ESL: ! 


LC(1) 
?A=C 
GOYES 
SETDEC 
A=A+1 
A=A+1 
P= 
?A=0 


A=0 
x, 
LC(3) 
?C<A 
GOYES 
LCC2) 
* 


C=C-A 


PaCa 10 


Az; 
10% 9! 
ASR 


RTN 


P= 
C=0 
LC(2) 
GOSUB 
BCEX 
RO=C 


LC(1) 
GOSUB 
C=RO 


CSL 
CSL 
CSL 

P= 
ACEX 
RO=C 
SETHEX 
P= 

C=0 


WE cc EDÈ-= 


2 

#F 

P 
PASBON 


X 
X 
0 
S 
POSITI 


#006 : : 


x 
PASBON 


#13 


121 
CC: 1 
:GONC :: 


X 
BCLEn: 


160 or 


Oo # 
— © 
< 


£ 
T 


vérification 

NaN et INF 

d'après l'octet #2 
éjecte Les NaN et INF 


Multiplication par 100 

pour avoir des centièmes de 
seconde 

Détection des positifs 

Si oui on saute à La suite, 
sinon... 

Caractérise un opérande : 


: négatif 


annule lé Signe pour La 
routine: DIV 
éjection dés temps > 10°4 


u Annulation des ‘chiffres: 
‘après La virgüle 


C(X)= nbre de 0 à placer 


\yte Îr 
11 


annulation: de ces chiffres 
a en'trop:.! 
puis détalage'du nombre: 
7 qui) res$ortira cadré à droite 


terminé pour Le formattage! 


2#\transformation:proprement: diteil 1 9h: 
1h 


calcul des heures :! 
par 

division entière part 3600 
DIV rend Le résültat en-B(A) 
et on Le met en RO 


division par 60! 


lecture des heures 
décalage d'un 


roctet:!: ::! 


placer: Les minutes après 
puis: nouveau décalage pour 
préparer place des secondes 
et des 

cent ièmes 


Ce que l'on fait ici 
Mise à l'abri de HHMMSSCC 
dans RO 


LC(2) #16 

* 
2ST=0 0 
GOYES  SUITEO 
LC(2) #18 


SUITEO D1=D1+ 16 


SUITE 


+ * * 


GOSBVL STRHDR 


GOSUB  NCHR 

* 
LCASG,,. "ut 
DATI=C B 

* 
D1=D1+ 2 
GOSUB NCHR 
LC(2) #27 
DATI=C B 
D1=D1+ 2 
GOSUB  NCHR 
LCASC !:! 
DATI=C B 
D1=D1+ 2 
GOSUB  NCHR 
2ST=0 0 
GOYES SUITE 
LCASC. 1-1 
DATI=C B 
D1=D1- 6 
D1=D1- 16 
D1=D1- 16 
RTN 


Longueur de l'en-tête de La 
chaîne à sortir = 22 
Nombre positif? 


Non Lg de chaîne = 24 nibs 
On écrase l'opérande 
Création de l'en-tête 
Conversions ASCII des 
centièmes de seconde 

Marque Les secondes 

Ajout à La chaîne en 
construction 

Pointage sur La suite pour... 
conversion ASCII des secondes 
Le caract. ! marque Les min. 
Ajout à La chaîne 

pointage sur La suite pour... 
Conversion ASCII des minutes 
Suivies du marqueur heures 
Ajouté à la chaîne 

On pointe La suite pour... 
Conversion ASCII des heures 
Nombre positif? 


Non, on rajoute un !-! devant 
la chaîne 

puis on 

repointe Le sommet 

de La pile 

et c'est terminé 


Sous-routine de division entière par soustractions 
successives. 


* nombre formatté en A, diviseur formatté en C 
* résultat en B(B) 


* 


DIV 
DIVO 


B=0 W 
?A<C 
RTNYES 
A=A-C VW 
B=B+1 B 
GOTO DIVO 


* Prend un nombre de 2 chiffres en RO, décale RO, et 
* range Les codes ASCII des chiffres à l'adresse D1 


NCHR 


A=0 A 
C=RO 

A=C B 
CSR 

CSR W 
RO=C 

ASL A 
ASR B 
LC(4) #3030 
A=A+C A 
DAT1=A 4 
D1=D1+ 4 


000XY en A(A) 
décalage pour éliminer 
ce qu'on vient de Lire 


000XY devient 00XYO 
puis 00X0Y 


23X3Y (on se fiche de Al4]) 
ce qu'on écrit dans La chaîne 
avant de pointer La suite 


RTN 


END 


et de retourner 
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LA DIAGONALE DU FOU 


Il m'est arrivé une chose étrange : j'ai vu la lumière 
du jour. Je me suis aperçu que j'avais un module 
Maths sur mon HP-71, et que celui-ci pouvait 
travailler sur des matrices. Donc, après une « pale » 
(les initiés savent ce que c’est) d’Ulm 79, j'ai entrepris 
de faire un programme appliquant bêtement les 
résultats du problème. 


Pour ceux que cela intéresse, je signale que cette 
méthode est connue sous le nom de Méthode de 
Jacobi. 

Ce programme consiste à diagonaliser une matrice 
symétrique réelle (comme chacun sait, toutes ces 
matrices sont diagonalisables). En prime, le 
programme fournit une base orthonormale de 
vecteurs propres. 


L’exécution effectue un MAT INPUT, et donne le résultat 
avec MAT DISP. Je rappelle l'algorithme à ceux qui ont 
oublié le problème de 79 : si A est symétrique réelle, 
on pose p et q tels que : 


lApal = max{|A;l;i#j}etp+q 


Ensuite, O est la matrice définie par : 
O; = 1sii#peti+q 


Où = OO: = 0c05:0 

PP Ad RE 
Oj = 0sii+#jeti,j #p,q 
O,_ =sin@ 

pq : 

O  =-sin8 


8 étant l'angle vérifiant ((O.A.O),, = 0 ('O signifie 
transposée de O). Ensuite on pose A’='O.A.0, et on 
recommence avec À’. Cela ne converge pas très vite, 
mais cette méthode pourrait être améliorée. 


Le WARNING de la ligne 70 n’est pas indispensable (Cf 
ERRLEX). 


Voilà, je retourne dans ma taupinière, et à la 
, 
prochaine. 


Serge Vaudenay (124) 





DIRECTORY 


Voici un petit programme de débutant écrit pour la 
rubrique du même nom. Je suis particulièrement 
heureux d'y utiliser JPC Rom. 
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Les fonctions CAT et CAT$ ne permettent un catalogue 
que par nom de fichier. J’ai éprouvé le besoin de 
cataloguer par nom abrégé, nom partiel, type ou 
année. Ce que permet l'utilitaire ci-joint. Il est simple 
d'utilisation : 


If faut donner le nom du périphérique, puis le critère 
nom, {ype ou année : 


-nom : les premiers caractères suffisent (par 
exemple, M listera MENU, MESURES, ctc.). Un * 
comme premier caractère listera un groupe (par 
exemple, *UTIL listera TEXTUTIL, LEXUTIL2...). 

- type : choisir dans le menu. Si le critère est exclusif 
et LEX est choisi, les LEX seront listés sinon, les 
D-LEX le seront simultanément. 


- année : introduire le millésime (8) ou l’année (88). 


Les résultats sortent sur les appareils 2 et 3 (Thinkjet 
et moniteur) de ma boucle HP-IL. 


Remarques et suggestions sont les bienvenues. 


Jean-Claude Kursner (444) 





PAGINEZ 
VOS LETTRES ET TEXTES 


Vous possédez le module ZPC Rom ? Félicitations ! 
Pour les indécis, les quelques possibilités que j'ai 
utilisées dans le programme PAGITEXT, peuvent 
peut-être contribuer à votre décision d'acquérir ce 
merveilleux outil. 

J'en serais personnellement très heureux. 


Les réfractaires à KEYWAIT$ peuvent remplacer cet 
ordre par KEYS$. 


PAGINATION DES TEXTES 


Vos mémoires, rapports ou lettres peuvent utiliser les 
possibilités offertes par EDTEXT pour centrer, justifier, 
marger, paginer, etc. C’est très long ! 


Par exemple, comparez le temps de formattage d’une 
de vos proses par EDTEXT et par FORMAT. Sans 
commentaire n'est-ce pas ? 


Comme beaucoup d’entre-vous, j'utilise donc FORMAT 
pour mes lettres. De plus un truc utile, qui se trouve 
dans JPC Rom, pour décaler la marge de nos textes, 
au préalable justifiés par FORMAT, avec 67 caractères, 
par exemple, est d'employer (sous EDTEXT) la 
tabulation assembleur de JPC Rom, dont on utilise le 
réglage à la colonne 9 pour chaque ligne : 


-le mode tabulation est actif (appui de la touche 
[CALC] SOUS EDTEXT), 

- [1/R1 : le curseur devient curseur d’insertion, 

- [SPC] : l’on insère 8 blancs en début de ligne 
automatiquement, 

- [ENDLINE] : l’on valide la ligne puis passage à la ligne 
suivante, etc. 


Cela peut paraître long, mais ça l’est beaucoup moins 
que d'attendre les instructions de formattage du 
traitement de textes, surtout si vous avez plusieurs 
copies à imprimer. 


Vos lettres seront ainsi présentées avec une marge de 
8 blancs + 67 caractères de votre prose + 5 blancs, 
soit 80 caractères par ligne, mais cela peut être 8 
blancs + 72 caractères, ou toute autre présentation de 
votre choix. Personnellement, je sépare mes textes de 
l'en-tête par 6 lignes vides, de même que mon nom de 
la fin du texte. 


GENERALITES 


Au début du programme, il y a une petite attente due 
au chargement des variables du menu de départ. 
Vous lirez donc pendant quelques secondes, sur votre 
fenêtre d'affichage : 

Pagination des textes 


Menu pour l'imprimante 


J'ai utilisé l’ordre FINPUT plutôt que MENU, car, dans le 
message, sont introduites les flèches vers le haut et 
vers le bas (caractères 162 et 163), pour indiquer le 
sens de déroulement du menu, en appuyant sur les 
touches habituelles de déroulement des lignes. Avec 
MENU, je n’y suis pas parvenu. Jean-Jacques Dhénin 
nous indiquera sans doute le moyen de le faire. 


La première ligne du menu explique qu'il faut se 
déplacer vers le bas pour faire un choix et appuyer sur 
[RUN] pour valider. Si, par accident, vous appuyez à ce 
moment pour valider, comme il s’agit d’un message, il 
ne se passera rien. Donc appuyez sur la touche 51. 


La seconde ligne vous demande si vous voulez 
imprimer 66 lignes (soit 6 lignes au pouce), sur une 
feuille de 12 pouces. 


La troisième propose le dernier choix, 88 lignes 
imprimées sur une feuille de 12 pouces. Pour les 
autres formats de papier (11 pouces) ou tailles 
logiques, il importe de modifier le programme. 


Les flèches vers le haut, vous rappellent que vous 
pouvez remonter à la ligne précédente (voire dans 
d’autres applications avec de longs menus, monter, 
descendre ligne par ligne, revenir au début ou à la fin 
comme avec MENU), tant que vous n’avez pas validé 
votre choix avec [RUN]. 


VOS LETTRES 
Logo 


Vous avez vraisemblablement un logo ou tête de 
lettre, à vos noms et adresses. Dans la négative je 
présente deux exemples sous forme de 
sous-programmes qui peuvent être appelés par le 
programme : LOGOPPC et LOGOEXMPL. 

Attention : si votre propre logo n’a que trois lignes, 
pensez à conserver le FLAG(0), ou bien sûr, le 
supprimer si quatre lignes vous sont utiles. 


Date 


S'il ne s’agit pas d’une lettre votre document n’a 
peut-être pas besoin d’être daté. Répondez comme il 
convient au test O/N. 

Par contre, une lettre est, naturellement, datée. 
Cependant, même si votre hiérarchie peut apprécier 
que vous emportiez du courrier à faire au cours de 
vos week-end, il est préférable de dater vos missives 
du prochain jour ouvrable. C’est pourquoi un test 
O/N vous est proposé pour dater le jour courant. 
Dans la négative vous entrez par FINPUT la date 
choisie. 

Nota : la barre oblique doit être insérée après l'entrée 
du jour et du mois. En effet il est possible avec FINPUT 
de protéger des champs. Dans le cas qui nous 
préoccupe, les barres obliques seront imprimées donc 
elles seront à inclure dans la variable 
alphanumérique. Vous pouvez faire la modification si 
tel est votre bon plaisir. 


Références 


Il est possible d'inclure les deux lignes habituelles : 

- V/Ref: 

- N/Ref: 

Un test O/N vous le permet si vous en avez Putilité. 
L'entrée s'effectuera de suite après l'entrée des 
coordonnées de vos destinataires. 
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Destinataire(s) 


Un même texte, tel qu’une circulaire, peut être 
adressé à plusieurs destinataires, il suffit d’en indiquer 
le nombre. 


Le programme prend en compte quatre lignes au 
maximum par destinataire. Si trois sont suffisantes, 
deux possibilités s’offrent à vous : 


- sauter "Lieu-dit éventuellement", 

- y entrer le code postal et la ville puis sauter la 
question suivante. 

La comptabilité du nombre de lignes utilisées 
s'effectuera automatiquement lors de l impression. 
Rappel : la validation des entrées multilignes par 
FINPUT, s'effectue par LENDLINE] sauf pour la dernière 
par [RUN]. Si vous l'avez oublié, la dernière entrée 
réapparaît à lécran avec son message, il suffit 
d'appuyer sur la touche tRUN]. Avant de le faire, vous 
pouvez vérifier vos entrées en remontant les lignes, 
que vous pouvez inspecter en long, en large, j'allais 
dire en travers, puis valider le tout en sortant de 
FINPUT par [RUN]. 


Texte 


Entrez le nom de votre fichier Text. Puis le nombre 
de copies à réaliser. 


Pagination 


Avez-vous remarqué que dans certains cas votre lettre 
est trop longue pour contenir dans une page, mais 
que seule la signature, ou, au mieux, une ligne de la 
formule de politesse + quelques lignes vides + votre 
nom figurent dans la seconde (ou dernière) page. 
C’est moche ! 


Pour éviter ces désagréments, le programme évalue 
ce qu’il reste comme lignes pour la dernière page. S'il 
s'avère que s’est insuffisant, quelques lignes sont 
supprimées de la première page et reportées 
quantitativement dans la dernière. 


La pagination n’est effective que si votre lettre 
comporte plus d’une page. Vous trouverez cette 
pagination au bas de chaque page, après un saut de 
quelques lignes (4 en principe sauf cas exprimé 
précédemment et la dernière page rarement 
complète), sous la forme : np/tp avec : 

-np = numéro de la page 

- tp = total des pages 

Si vous avez plus de 99 pages, une petite modification 
du programme s’imposera à la ligne 890. 
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MEMOIRES, RAPPORTS, etc... 


Vous avez les mêmes possibilités que pour vos lettres, 
mais en répondant NON à toutes les questions, vos 
proses seront imprimées telles quelles, après un saut 
de quelques lignes. 

Nota important : a la question : 

"Nb. de destinataires: ?" 

répondez par le chiffre zéro si vous ne désirez pas 
imprimer de pavé(s) "DESTINATAIRES". 


Ouf ! Je termine cette longue mais indispensable 
explication en remerciant Pierre David. En moins de 
temps qu’il me faut pour vous le dire, il m’a sorti du 
mauvais pas que j'ai rencontré avec les boucles et 
EXECUTE. Voyez le programme ! Enfin, le même Pierre 
m'a répété à maintes reprises que je devais faire des 
organigrammes pour programmer. Je n’arrive pas à 
m'y contraindre. Cela donne à mes "ocuvres", que je 
n'ose qualifier de "chef", une impression b..que ! 
Mais comme la déjà dit Galilée avant moi, elle 
tourne... 


Alexandre Boldireff (254) 





IMPRIMEZ 
VOS CODES BARRES HP-41 
AVEC LE 71! 


Le programme que nous vous proposons ici a été 
initialement écrit pour HP-75 et pouvait piloter au 
choix une imprimante ThinkJet ou Epson (voir 
CHHU Chronicle V3N1 de janvier 86). Bien sûr, j'en 
connais qui vont dire : « ça y est, on va encore nous 
parler du 75 ! ». 


Eh bien, non ! L'idée naturelle était de le faire migrer 
sur HP-71, de tester au passage la possibilité 
d'impression sur LaserJet (machine a priori 
compatible ThinkJet et utilisée pour faire votre 
journal préféré), et d'adapter le module Epson à la 
82905, plus répandue en France (avec une excellente 
définition des codes-barre obtenus avec un ruban 
encreur neuf). Malheureusement, au début, il est 
apparu que les fonctions hexadécimales du HP-75 et 
celles du HP-71 réagissaient différemment, voire qu’il 
n'y avait pas de fonction appropriée sur le HP-71. 
Une première version fût faite, utilisant plusieurs Lex 
inclus dans le projet, maintenant défunt, de module 
CHHU aux USA. 


Enfin vint la version actuelle de JPC Rom, dont les 
fonctions avaient été réécrites pour pouvoir, entre 
autres choses, « désinverser les quartets » (les initiés 
comprendront). Tout ceci devait permettre de 
convertir une chaîne d’octets en son image bit et d’y 
insérer les caractères de contrôle voulus, sans 
acrobatie notable. Le présent programme utilise donc 
JPC Rom, seulement ce module... 


J'ai failli oublier l’essentiel : le logiciel lit directement 
sur la cassette ou la disquette, sans aucun risque 
puisqu'on n'y écrit rien, les octets du fichier 
programme. Il fait appel à des menus. Tout est 
paramétrable hauteur des barres, nombre de 
rangées par page, nombre d’octets par rangée, 
longueur de page, indication ou non de la traduction 
hexadécimale au-dessus de la rangée, nombre de 
points pour les barres 0 et 1, l'intervalle, etc... C'est 
énormément plus rapide que tous les programmes 
d'impression de codes-barre par une HP-41 parus à 
ce jour. Ceux-ci nécessitaient souvent les deux 
modules HPIL-Devel et Plotter et demandaient 
parfois plusieurs heures pour un programme un peu 
long - il ne faut plus maintenant que quelques 
minutes ! 


On ne risque plus de vider les accumulateurs de la 
cassette ou de la HP-41. Finis le folklore des 
batteries de blocs-secteur pour éviter la panne sèche, 
la colle et les ciseaux, l’interminable bande de papier 
thermique. 


Pour démarrer, c’est tout simple : mettez sur la 
boucle le HP-71, l'imprimante (ThinkJet, 82905 ou 
LaserJet) et la cassette ou disquette, faites RUN BAR713, 
et laissez-vous guider par les menus. Les 
programmes HP-41 sont lus par défaut sur la 
première unité de mémoire de masse sur la première 
boucle ; cependant, rien ne vous interdit d'utiliser 
deux boucles sur le même HP-71, et de spécifier 
lidentificateur complet du fichier, par exemple : 
PROG41:3:2 Ou PROG41:TAPE(2):2. Tous les types 
d'instructions sont traités (sauf, peut-être, quelques 
synthétiques vraiment, mais alors là vraiment très 
tordues !). Espions, sachez qu’un programme privé 
donnera des codes-barre eux-mêmes privés. 


Le principe est extrêmement simple : on commence 
par calculer l'emplacement du fichier sur le support, 
puis on en lit les octets dans une variable-chaîne P$. 
Après quoi, on analyse la chaîne pour isoler chacune 
des lignes (c’est à dire instructions 41). Ceci n’est pas 
absolument indispensable, mais permet d'écrire le 
numéro des lignes au-dessus des rangées, et simplifie 
le problème des instructions à cheval sur deux 
rangées de code. On convertit au fur et à mesure les 
octets en binaire, sans oublier de calculer les numéros 


de rangée, les limites de la rangée de code et le 
checksum correspondant. 


L'impression se fait à partir de la chaîne binaire qui 
est la même pour toutes les imprimantes, au moyen 
de lun des deux modules spécialisés par type 
d'imprimante. Les séquences d'échappement, et 
surtout le principe de fonctionnement graphique, 
différent entre ThinkJet et Laserjet d’une part, et 
82905 de l’autre. 


Il est possible d'imprimer une seule rangée ce qui est 
très utile si votre cartouche d’encre se met à « baver » 
ou s’épuise en cours de travail, ou de relancer une 
nouvelle impression en modifiant les paramètres : 
longueur de page, hauteur, etc, sans avoir à relire le 
fichier sur le support. Le maximum de simplicité a 
donc été recherché pour l'interface utilisateur. 


Si vous avez des questions, vous pouvez nous écrire 
(et ce n’est pas la peine de le faire en anglais pour 
aucun de nous deux !) : 


Michael Markov 
P.O.Box 17 
Lockwood, NY 14859 
USA 


ou 

Eric Gengoux 

8 rue de Furstenberg 

75006 Paris 

Alors, Happy barcoding ! Et soyez gentils : ça fait 
bien longtemps qu’on ne voit plus beaucoup de 


programmes pour 41 dans JPC.. Maintenant, vous 
n'avez plus d’excuse ! 


Michael Markov (301) 
Eric Gengoux (108) 


N 
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Programme "DIAG" (diagonalisation de matrices, nécessite module Math et ERRLEX) 


- Diagonalisation des matrices carrées symétriques. 

D'après une pale d'Ulm 79. 

10 INPUT ‘Ordre de À ? !';N 

20 OPTION BASE 1 

30 DIM ACN,N),DCN,N),OCN,N) 

40 MAT INPUT A 

50 MAT D=TRNÇ(A) @ MAT O=D-A 

60 IF ABS(FNORM(O))>.000000001 THEN DISP ‘Matrice non symétrique! à END 

70 BEEP OFF à WARNING 240010 à BEEP ON 

80 CALL DIAG(A(,),N,D(,),0(,)) 

90 DELAY INF 

100 DISP ‘On a: O.D.tO=A! 

110 DISP 'D'; @ MAT DISP D; 

120 DISP 'O'; @ MAT DISP O; 

130 DELAY .4 


140 SUB DIAG(AC,),N,BC,),RC, )) 
150 DIM OCN,N) 

160 REAL T,D 

170 D=ANGLE(0,1) 

180 INTEGER 1,1J,P,0Q 

190 MAT R=IDNCN,N) 

200 P=1 à a=2 


210 FOR 1=1 TO N à FOR J=1 TO N 
220 IF I1#J AND ABS(B(I,J))>ABS(B(P,Q)) THEN P=I à Q=J 
230 NEXT J @ NEXT I 


240 T=1/2*(MOD(D+ANGLE((B(Q,Q)-B(P,P))/2,B(P,Q)),D*2)-D) 
250 MAT O=IDNCN,N) 

260 O(P,P)=COS(T) à O(Q,Q)=COS(T) 

270 O(P,Q)=SIN(T) à O(Q,P)=-SINCT) 

280 MAT R=R*O 

290 MAT B=TRNÇR) 

300 MAT O=B*A 

310 MAT B=0*R 

320 DISP ‘.'; 

330 IF ABS(T)>.000000001 THEN 200 


ROROROROHON RO RORORR HAE RAROR KR HORREUR HR RH He HA DH HARAS A Re 


Programme "DIRDOS" (catalogue évolué, nécessite JPC Rom) 


1 ON ERROR GOTO 'ERR' 
2 GOSUB ‘'INIT!' 
3 ATIN OFF à M=1 


4 DATA Catalogue selon NOM,Catalogue selon TYPE,Catalogue selon ANNEE 
5 RESTORE 4 à M=MENU(3,M) à ON M GOTO 6,9,12 


6 ATTN ON à T$='"NOM" @ FINPUT N$,'Fichier(s): ",A à D1=1 
7 IF N$[1,1]="X*N THEN SFLAG 1 à F=8 Q N$=N$[2,LEN(NS)] ELSE F=LENC(N$) 
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8 GOSUB 'IMP' à GOTO 'RECH' 

9 ATTN ON à T$="TYPE" @ GOSUB 'TS' à IF P$=":TAPE" THEN D1=14 ELSE D1=12 

10 F=D1+4 à IF FLAG(1) THEN N$=REDS(NS) 

11 GOSUB 'IMP' à GOTO 'RECH' 

12 ATTN ON à T$="ANNEE" Q FINPUT N$,"Année: ",A @ IF P$=":TAPE" THEN D1=32 ELSE D1=30 
13 F=D1+LEN(N$)-1 @ N$=N$[1,2] à GOSUB 'IMP' 


14 "RECH': X=1 
15 WHILE CAT$CX,P$)#11" 
16 IF FLAG(1) THEN 


17 T=POS(CATS(X,P$) [D1,F],N$) 

18 ELSE 

19 T=N$=CATS(X,P$) [D1,F] 

20 END IF 

21 IF T#0 THEN 

22 AS=CATS(X,P$) @ OUTPUT :D ;A$ 

23 O=0+VAL(AS[(D2,F21) à Y=Y+1 à X=X+1 
24 ELSE 

25 X=X+1 

26 END IF 


27 END WHILE 

28 OUTPUT :D USING “A2/1;"u 01 

29 OUTPUT :D ;Y;" fichier(s) trouvé(s) représentant ";0;! octets utilisés." 
30 END 


31 'TS': ATTN OFF à M=1 
32 T1$="BASICLEX TEXT DATA SDATAD-LEXADRS BIN KEY 


33 DATA BASIC,LEX,TEXT,DATA, SDATA,D-LEX,ADRS,BIN,KEY 


34 RESTORE 33 à M=MENU(9,M) à N$=T1$[(M-1)*5+1,M*5] 
35 FINPUT R$,"Type exclusif (O/N): ",A 

36 IF NOT A THEN END 

37 IF R$#"O"! AND RS$#!N! THEN 35 

38 IF R$="N"! THEN SFLAG 1 

39 RETURN 


40 ‘IMP': 2$="........ WU Q IF T$="TYPE" AND FLAG(1) THEN N1$="..M8N$8"..1 ELSE N1$=N$ 

41 IF T$="NOM" THEN N1S=N$8&2$[1,8-LENCNS)] ELSE IF T$=!"ANNEE!" THEN N1S=NTONENSEZS [1,2-LENCN$)] 
&2 IF FLAG(1) THEN N1$=1..M8N$&n. . 1 

43 OUTPUT :D ; SPACE$(20); "Catalogue de ";P$ 

44 OUTPUT :D ; SPACE$(20); "Selon Le critère ";T$;" = M:N1$ 

45 OUTPUT :D USING "A2/1";u 1 

46 RETURN 


47 'ERR': E=ERRN 


48 SELECT E 

49 CASE =64,=225032,=58 

50 BEEP à DISP "Faux périphérique!" 
51 CASE =57 

52 BEEP à DISP "N'existe pas!" 

53 CASE ELSE 

54 STOP 

55 END SELECT 

56 END 

57 ‘'INIT': 


58 DIM N$C8),PSC8],R$E11,T$(51,71$0451,2$(8],N1$[9] ,A$ [43] 
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59 
60 
61 
62 
63 
64 
65 
66 


INTEGER M,X,D,0,Y,F,D1,T @ CFLAG 1 

FINPUT R$,#Sortie: Ecr/Imp? ",A 

IF NOT A THEN END 

IF RS$#!E' AND R$#!'IN THEN 60 

IF R$="EN THEN D=3 ELSE D=2 

INPUT "Catalogue !,MMAINU:P$ à P$=":10gp$ 

IF P$=U:TAPEN THEN D2=20 à F2=24 ELSE D2=18 à F2=22 
RETURN 


RAR RH AH H HE HA HE HE HE HE HE HD HE HN D HE HE D DIE I IEEE 


Programme "PAGI" (Impression de texte, nécessite JPC Rom) 


- (ec) A.BOLDIREFF - PPC(254) à rev: 04-13/04/88 


20 
30 


40 
50 


60 
70 
80 
90 
100 P 
110 P 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


260 
270 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


DESTROY ALL 
B$=CHR$(163) à H$=CHR$(162) à E$=" PAGELEN " 9 F$=CHR#(161) 9 D1SP ‘Pagination des textes! 


DATA Choix: i&B$8h$&i N8f$&iVal ider :#RUN' 
DATA BSRESR"72,66 "&BSE' 121! ,H$&eSR96,88 N&HS& 1201,p,pp "| 


OPTION BASE 1 @ DIM LO$(3) 111 ,M$C3) L22) ,P$C3) (11, TS (81, L$(8] 
RESTORE 40 à READ M$,P$ | 
FINPUT LO$,MS,P$,A FEMAICAIQ MTTA. SORTE TE 
ON À GOTO 80,100,110 TSX HIB-2RGAKSJ-CATAGS ATAG FXAT XSJOTSABMESNT : 
P=66 à PRINT ESC$('&LéD'); à PAGELEN à GoTO 130 
P=88 @ PRINT ESC$('&LBD'); à PAGELEN 96 "© "A%A, Nil 0 ATAGE ATA 


\P': 1F P=88 THEN PERF ON EMA PHERÇE-MIENTSEN G (MCUMINEM G EE 3 + 
DISP Logo ? - O/N! RENTREE 4 Re 
ON POSC'ON',KEYWAITS)+1 GOTO 140,160, 150 PA MODS Ur RU 
DISP ‘Document daté ? o/n' @ ON POSC'ON',KEYWAIT$)+1 GOTO 150, 180, DU 
SFLAG 2 PRE 
FINPUT L$, Choix Logo : ,A @ IF L$=11 THEN 170 

DISP ‘Date de ce jour Con)! à ON POSC'ON! sKEYUALTS)+1 G0To 180,210,200 

SFLAG 4 @ @OTO 220 "" . ‘* Par 
DIN D$18] à FINPUT DS, ‘Date : jj/mm/ant, ‘7p8üpt;A 44 NOT a THEN 200 ELSE Mo". 
IF NOT FLAG(2) THEN DS='EURODATE! ELSE D#=u ; 

DISP Référence ? (o/n)' à ON PCR 2KEYWALTS DT 6070 220, 230 20" 

SFLAG 1 - 1e 

DIM Q$[1] @ FINPUT Q$, 'Nb.Destinataires: 1!,118pup',A à N=VAL(O$) ES 

IF NOT N THEN N=1 4 SFLAG 5 à GOTO 360 


DATA Prénom Nom:,Adresse:,Lieu-dit(évent.):,Ville & Code:,v/ref:,n/ref: 
DATA 11p30up, 8p30up, 17p30up, 13p30up, 6p30up, 6p30up 


DIM NSCN),ASCN),ATSCN), VECN),MS(4),PS(4),1$(4) 
IF FLAG(1) THEN DIM RSCN),SSCN),M$(6),P#(6), 1$(6) 
RESTORE 260 à READ M$ à RESTORE 270 à READ P$ 
FOR 1=1 TO N 
FINPUT 1$,M$,P$,A 
NSCI)=1$(1) à ASCI)=I$(2) à ASCI1)=18(3) à VS(1)=18(4) 
IF NOT FLAG(1) THEN 350 ELSE R$(I)=1$(5) à S$(1)=1$(6) 
NEXT ! 
FINPUT T$,'TEXTE ? ‘,A @ IF T$='! THEN 360 
FINPUT Q$, 'Nb Copies à éditer: 1!,'20pup',A à M=VAL(Q$) 
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380 IMAGE 5/,4(45x,32a,/),/ 

390 IMAGE 5/,4(45x,32a,/),5/ 

400 IMAGE 5/,3(45Xx,32a,/),/ 

410 IMAGE 5/,3(45x,32a,/),5/ 

420 1=1 à J=1 à BOLD ON 

430 IF I>N THEN 940 

440 IF J>M THEN CFLAG 3 à J=1 à GOTO 930 

450 IF FLAG(5) AND FLAG(4) THEN 610 ELSE IF FLAG(5) AND NOT FLAG(4) THEN GOTO 470 
460 IF FLAG(4) THEN 530 

470 IF NOT FLAG(2) THEN 

480 PRINT TAB(62);'le '; @ ON ERROR GOTO 510 à CALL D$ 
490 IF FLAG(5) THEN 610 ELSE IF FLAG(2) THEN 520 ELSE 530 
500 ELSE à GOTO 490 à END IF 

510 OFF ERROR à PRINT D$ @ IF FLAG(5) THEN 610 

520 CALL L$(D$) @ IF D$='EURODATE' THEN D$='! 

530 IF A1$(1)="" EXOR V$(1)="" THEN SFLAG 3 

540 IF V$(1)='! THEN V$S(I)=A1$(1) 

550 1F FLAG(1) AND FLAG(3) THEN 560 ELSE IF FLAG(1) THEN 570 ELSE IF FLAG(3) THEN 580 ELSE 590 
560 PRINT USING 400; N$(I1),A$C1),V$CI) à GOTO 600 

570 PRINT USING 380; N$(1),A$CI1),A1$(1),V$CI) à GOTO 600 

580 PRINT USING 410; N$CI),A$C1),V$(I) à GOTO 610 

590 PRINT USING 390; N$(1),A$CI1),A1$(1),V$CI) à GOTO 610 

600 PRINT !V/Réf : '&R$CI) @ PRINT 'N/Réf : '&S$(I) à PLF 2 
610 INTEGER T,TO,T1 

620 1F FLAG(2) THEN T0=19 ELSE T0=16 

630 IF FLAG(3) AND FLAG(O) THEN TO=TO-2 ELSE IF FLAG(O) EXOR FLAG(3) THEN TO=T0-1 
640 IF FLAG(5) THEN TO=1 

650 IF FLAG(4) THEN TO=TO-1 

660 T1=P-TO-5 à T=FILESZR(TS) 

670 SELECT T 

680 CASE <=TI 


690 GOTO 900 

700 CASE ELSE 

710 INTEGER K,R,S à R=RMDCT-T1,P-5) 
720 IF R<=9 THEN S=12 à R=R+8 à T1=11-8 ELSE S=4 
730 K=CEIL(CT-T13/(P-5))+1 

740 L=1 à EXECUTE FNZS(TS$,1,71,"F") 
750 1F': PLF S 

760 PRINT USING 890;L,47,K 

770 L1=T1+1 à L2=T1+P-5 à H=2 

780 IF H=K THEN 840 

790 EXECUTE FNZ$(TS$,L1,L2,"S") 

800 1S1: PLF 4 

810 PRINT USING 890;H,47,K 

820 L1=L2+1 Q L2=L1+P-6 à H=H+1 

830 GOTO 780 

840 EXECUTE FNZS(TS,L1,T,"E") 

850 1Et: PLF P-1-R 

860 PRINT USING 890;K,47,K 


870 END SELECT à GOTO 910 
880 DEF FNZSCTS,L1,L2,G$)="MPLIST METÉR!, 'ESTRH(L1)E!, 'ESTRSCL2)&'Q run,"'EGHE&!!!! 


890 IMAGE 35x,2z,x,b,Xx,2z 
900 PLIST T$ 
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910 IF NOT K THEN PFF 

920 J=J+1 à GOTO 440 

930 I=1+1 @ GOTO 430 

940 CFLAG 0,1,2,3,4,5 à BOLD OFF à IF P=88 THEN PRINT ESC$('&léd'); @ PAGELEN 
950 END 


960 SUB LOGOPPC(D$) 
970 IF D$='! THEN SFLAG O à D$='EURODATE! 


980 DATA PPC PARIS CHAPTER,B.P.604,75028 - PARIS Cedex01 


990 DIM A$(3) à READ AS 
1000 BOLD ON à MODE 3 
1010 FOR I=1 TO 2 
1020 PRINT CENTER$S(AS(1),21) 
1030 NEXT I! 
1040 PRINT A$(3); @ MODE O @ PRINT TAB(58);'le !; 
1050 IF FLAG(0,1) THEN CALL D$ ELSE PRINT D$ 
a L'on conserve Le flag(0) pour mémoriser que Le logo n'a que 3 Lignes 
1070 END SUB 


1080 SUB EURODATE 
1090 DIM A$ @ AS$=DATES @ PRINT AS(7,8]8A$[3,6]8A$(1,2] à END SUB 


1100 SUB LOGOEXMP(D$) 


1110 IF D$=!! THEN SFLAG 0 à D$='eurodate! 
1120 BOLD ON à MODE 3 à PRINT CENTERS('PPC Paris Chapter',22.5) à MODE 2 
1130 PRINT ‘Centre de Jeunesse et de Loisirs Jean Verdier! à MODE 3 


1140 PRINT CENTER$('11, Rue de Lancry!,22.5) 
1150 PRINT CENTER$('75009 - PAR I S',22.5); à MODE O0 à PRINT TAB(58);'le !; 
1160 IF FLAG(0,0) THEN CALL D$ ELSE PRINT D$ 
= Logo de 4 lignes: Flag(0) effacé 
1180 END SUB 


ER ROR AER HER HER HU D HE AH DH DH HD IH NH DID CO 


Programme "BAR" (codes-barre HP-41 sur HP-71, nécessite JPC Rom et STRINGLX) 


- BAR713 codes à barre HP-41 sur HP-71/Thkjet, LaserJet ou HP82905 

(c)Michael Markov, adaptation Eric Gengoux V3.0 16/04/1987. 
LEX: JPCLEX 

4O DESTROY ALL @ DIM A$[32],F$[32] 

50 H5=0 

60 INPUT ‘'Octets/Ligne? M,MI3IRE à R6=MAX(MIN(13,R6-3),1) 

70 INPUT "Lignes/Pg, Hauteur? ","24,26":H6,H7 

80 IF H5 THEN 620 ELSE H=0 à H8=0 à H9=0 à LC OFF 

90 PWIDTH INF à DIM O$[1290] 

100 INPUT “Thinkjet/Hp82905 ? n,UT:Q$ à H8="T=UPRCS(QF) 

110 IF NOT HB THEN O1S=HTASC'FFFFFFFFFFFF')&HTAS('00000000!) à 00$=01$151 ! Réglage 82905B 
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120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


INPUT "Fichier ? ";F$ 
P=POS(F$,":") à IF NOT P THEN FS=REDUCES(F$)&":TAPE: 11 @ GOTO 130 
D$=UPRC$S(F$[P]) à D=DEVADDR(D$) 
L=POS(FS,":",P+1) @ IF L THEN L=VAL(F$[L+1]) ELSE L=1 
F$=F$(1,P-11 à F$[11]=CHRS(224)ECHR$(128) 
SEND L; UNT UNL MTA LISTEN D DDL & DATA 0,2 UNL ! Recherche DIR et adresse fichier 
WAIT 5 ! Arrêt progr. pendant Les recherches sur cassette 
SEND L; UNL UNT TALK D DDT 2 
ENTER :D:L USING “#,32A'";A$ 
IF NUM(A$)=255 THEN DISP "Fichier non trouvé! à BEEP à END 
IF POS(A$,F$)#1 THEN 200 
SEND L; UNT MTA LISTEN D DDL & DATA A$[15,16]1 UNL 
LO=NUM(AS [29] )*256+NUMCAS$ (301) @ DIM P$[LO] 
P9=BINAND(NUMC(AS1311),1) ! Bit PRIVATE armé si P=1 
STD @ M$="#, "R&STRS(LO)&!AN 
WAIT 5 ! Lecture fichier HP-41 dans variable P$ 
SEND L; TALK D DDT 2 à ENTER :D:L USING M$;P$ 
SEND L; UNT UNL LISTEN D SDC UNL 
Analyse par Lignes (selon type) du programme HP-41 (''parse!"!) 
PS[LOJ]=CHR$(47) @ GOTO 620 
B=NUM(P$[RO]) à B1=NUMÇ(PS$ [RO+1]) à B2=NUM(PS$ [RO+21]) 
X=1+(B>143)+(B>207) 
IF B>239 THEN X=B-239 ! Instr. alpha 
IF B>28 AND B<32 THEN X=MAX(2,B1-238) ! XEQ/GTO/W globaux 
1F B>191 AND B<206 AND B2>240 THEN X=B2-237 ! Labels globaux 
IF B>191 AND B<206 AND B2<241 THEN X=3 ! .END. 
1F B>15 AND B<29 THEN GOSUB 400 ! Instr. numériques 
L2=L2+(B#0) à RO=RO+X @ RETURN 
N=RO+1 
BO=NUM(PSIN,NJI) @ N=N+1 
IF B9>15 AND 89<29 THEN X=X+1 à GOTO 410 ELSE RETURN 
1F H8 THEN PRINT CHR$(14)8ESCS('&L8D'); ELSE PRINT ESC$('O')8ESCS('E'); ! Bits rangée code 
PRINT F$[11,10];L0; 'Octets' 
H5=1 à L2=1 à L1=1 à RO=1 à M1=0 à M2=0 à C=0 à 1=16*(1+P9) 
1F H8 THEN PRINT ESC$('*r1280S'); ! Graph. hte. densité 
FOR 1=1 TO LO STEP R6 à E=MIN(LO,I+R6-1) à B$=P$(I,E] 
MI=MINCRÉ,RO-1) 
1F RO<E+1 THEN GOSUB 320 à GOTO 490 
M2=CX+E-RO+1)*(E+1#R0) à R=CEIL(I/R6) 
BH=CHRSCT+MODCR-1,16))&CHRS(M1*16+M2)&BS 
FOR K=1 TO LEN(B$) @ C=C+NUM(BS[IK,K]) ! Checksum 
C=MOD(C+INT(C/256),256) à NEXT K 
B$=CHR$S(C)8BS 
IF R9 AND R<>R9 THEN 600 
IF H9 THEN H$=ATH$S(B$,1) ELSE H$="" 
PRINT USING ‘"ROW ",3D,"  Lignes",4D,"-",4D,3X,33A';R;L1;L2-1;H$ 
GOSUB 680 à IF R=R9 THEN 620 
IF NOT MODC(R,H6) THEN PRINT CHR$(12) ! Nbre. ROWs/page 
L1=(RO=E+1)+L2-1 
NEXT I 
R9=0 à DISP "Fin/Tout/Ligne/Hex "; 
IF H9 THEN DISP “on! ELSE DISP "off" 
BEEP @ ON POSC"FTLHM" ,UPRCS(KEYWAITS) )+1 GOTO 640,670,430,660,650,60 
H9=NOT H9 à GOTO 620 
INPUT "Ligne #? ";R9 @ GOTO 450 
DISP à PWIDTH 80 à END 
IF NOT H8 THEN 800 ELSE O$='7070! ! Routine THINKJET 
FOR A=1 TO LEN(B$) 
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700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 


FOR A0=7 TO O STEP -1 
IF SBIT(B$,A,AO) THEN 0$-0$8'7F0' ELSE 0$=0$&'70! 
NEXT AO à NEXT A 
O$=0$&'7F07! à IF MOD(LEN(O$),2) THEN O$=0$8'0! 
O$S=HTA$(0$,1) 
ENDLINE !! Q PRINT CHR$(27)&'*rA!; 
FOR H=1 TO H7 ! Hauteur barres 
PRINT ESC$('*b'&STRS(LEN(OS))&'W')80$; 
NEXT H @ PRINT ESCS('*b1W! )ECHRS(O)RESCE( !*b1W! )ECHRE(O) 
ENDLINE @ PRINT CHR$(27)&'*rB'; à RETURN 
0$=00$800$ à FOR A=1 TO LEN(B$) ! Routine HP82905 
FOR A0=7 TO O STEP -1 
IF SBIT(B$,A,A0) THEN 0$=0$801$ ELSE 0$-0$800$ 
NEXT AO à NEXT À @ 0$=0$801$800$ 9 C2=LEN(O$) 
PRINT ESC$('&L9D') ! Lignes jointives (esp. 9 points) 
PRINT ESC$('&k2S') ! Graphique mode condensé 
FOR H=1 TO H7 DIV 8 @ PRINT CHR$(27)&'*b';C2;'G':0$ à NEXT H 
PRINT ESC$('&k0S'}) @ PRINT ! Titre ROW mode normal 











RETURN 
Les idées les plus 
simples sont Souvent 

" les moins Compliquees… 
7 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu'est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 
Vous trouverez donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 


écrivez !"), le Lex de Frédéric Vadez ainsi que le Lex ERRLEX de Serge Vaudenay pour le 
programme "DIAG". 


CHARLEX 
VADLEX HMS$ XFN 93001 
ERRLEX EEND XWORD 92001 


ERROR XWHORD 92002 
WARNING  XWORD 92003 


10 CALL MLEX à SUB MLEX à SFLAG -1 à PURGE AH @ INPUT "Nb. d'octets: ":N @ LC OFF 
20 CREATE DATA AH,1,N-4 à A=HTD(ADDRS(!AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S-0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=AS8CS 9 A=A+37 à N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=CS(5S*FLAG(5)+1] à POKE DTHSCA),CS à A=A+16-5*FLAG(5,0) à NEXT X @ Q=4 
60 DISP DTH$CX)[31; à INPUT M: ",P$[1,MOD(N,16)]1;C$ à GOSUB 90 

70 POKE DTHS$(A),C$ à POKE DTHS(B),A$ à CFLAG -1 à END 

80 DISP DTH$CX)[31; à INPUT ": ",P$;C$ 

90 DISP DTHSCX)[31; à INPUT " sm ",1---":D$ 
100 M=S à FOR Z=1 TO LENCC$) à M=NUM(CS[Z] )+M+1 à NEXT Z 
110 IF D$=DTH$(MOD(M,4096)) [3] THEN GOSUB 130 à S=M à RETURN 
120 DISP "Erreur de somme" à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 

130 P$=U-------.-..-.... à RETURN 
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CHARLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
000: 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
014: 
018: 
01C: 
01D: 
O1E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
024: 
028: 
O2C: 
02: 
02E: 


0123456789ABCDEF 


34841425C4548502 
802E000000000000 
5E4001EFF0000000 
FE0000000800001F 
F31BF961400032BF 
38F14A11DB10AD23 
07D532BFB8FD7911 
11AD754D7A101743 
11014D1CB15D0000 
71450375FF864834 
5655581008355654 
5810070507701724 
7700775070077517 
2077040708364545 
4A30000449724000 
0808094A2C180814 
A464242008355455 
581000054C714000 
0C3142404C700832 
41414A70002078A0 
2F30000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000080€ 
1A28080008080A2C 
180008040E340800 
08001E3018000000 
0000000000000000 
0000000000000000 
0000000000000000 
0201000000010200 
0000000201020000 
0001000100000002 
0102010000000000 
0000000000000000 
045E755142400101 
0101010000000000 
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624 octets 


sm 


35E 
68D 
9FD 
D57 
OEA 
484 
837 
BBA 
F25 
2A2 
5F9 
93F 
c92 
FEO 
333 
69c 
9F6 
D3C 
098 
3F0 
71B 
A2B 
D3B 
04B 
358 
668 
978 
c8B 
F9B 
2AB 
5BB 
8cB 
BDB 
F06 
270 
5B9 
8F3 
co3 
F13 
223 
539 
84E 
Bé2 
E76 
186 
4D2 
7E5 


02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
038: 
039: 
03A: 
038: 
03C: 
030: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
O4A: 
04B: 
04C: 
04D: 
O4E: 
04F: 
050: 


VADLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 


0000000000000000 
0000070507000000 
00000000083444C4 
44400D7901112D70 
050D750509700000 
0D70000000384540 
4020014E322E3140 
084E794142400000 
00000000002€4559 
3200000000000000 
0000000000000026 
5556587008365556 
5810083645464830 
0832414248700024 
5655587008345655 
5810083446454830 
0C3042414C700024 
5556587008355654 
5810083546444830 
0C3142404C700025 
5455587008355455 
5810083544454830 
0C3140414C700875 
1414187000044972 
40000E3159454E30 
OC7A0F7949400024 
5554587000084A71 
40000C523A262D 10 
0424587458400875 
1415187000094A70 
4000083544454830 
0C3140414C300€74 
5655545000054c71 
40000 


0123456789ABCDEF 


651444C454850202 
802E000000000000 
E910005101000000 
F710000000000000 
071000F784D43542 
101FF81115378407 
F307D708DC32F004 
20AF2310117F8FA9 
OFO3FD2F3F3D2020 
202021557071CF68 
CF2230F9024C05B3 
4B342094880850AC 


AFS 
E18 
156 
4B6 
800 
B43 
E97 
1E7 
525 
83A 
B52 
EB1 
202 
543 
8A0 
BEF 
F44 
2A1 
5F0 
946 
CAO 
FEE 
350 
6Aî 
A01 
D79 
0D5 
436 
78D 
ADD 
E21 
189 
4E0 
5D9 


205 octets 


sm 


359 
688 
9D2 
DO0 
067 
3D2 
76B 
B01 
EAO 
207 
599 
916 


00C: 
000: 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 


ERRLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 
00C: 
000: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
O1A: 
018: 


0326009865431318 
3280D0A90BF4A3ES 
9F0124AF23163749 
ODD108AF 22330673 
80118BF2BF2AEDBF 
2BF2BF2BF223A9E1 
080420AF23161860 
60318117F8FA90F0 
7350312214017175 
40317214D1717730 
31A314D171792086 
09031D214D1C51CF 
1CFO1AF19F200B7A 
B6564FFDO118AEAB 
FÉBF6108FOBE4330 
303CA159317301F 


0123456789ABCDEF 


542525C454850202 
802E000000000000 
19100C5103000000 
F920000000000000 
019000C80035000) 
81016000075454E4 
44109542525F4252 
0D751425E494E474 
301FF8DE6A208D39 
4509FFFFDEFFF7CB 
0228DA93902EFFF6 
DFFF75AO2A8F5C39 
O8D84A804CFFF8BF 
FF77801BBB8F2144 
8FFDO908F81EF043 
28F4CEF039025454 
E44415C91698FCBE 
FO8FA87914428FFF 
980100119A064229 
OEA18FB51905318F 
92D708F4E02184D1 
BBB8F2146694F8F6 
81FO8FDF8E0ACO8F 
322B18FFACEOAF2A 
BEBF4BF4BF4AF78F 
2D2B1AFEAFFAFESF 
2D2B1AFBF2F2AE60 
1 


C82 
027 
3A7 
729 
B01 
EC6 
226 
585 
90A 
C5SE 
FC8 
357 
705 
ACF 
E79 
1B6 


198 octets 


sm 


358 
687 
9BE 
CEF 
04A 
3B0 
70c 
A92 
E44 
255 
60A 
9E2 
DBC 
16E 
528 
8BA 
C75 
037 
38C 
729 
ABA 
E78 
24E 
61F 
A26 
E34 
204 
236 





Le Journal JPC est le bulletin de liaison entre les 
membres de l'Association "PPC Paris", régie par la loi 
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We are sad to report convergent rumors about the production stop of the HP-71 before the end of this year. 
We will probably discuss this point in a near future. Hewlett-Packard will also announce two new low-end 
machines, HP-22 and HP-32 similar to HP-27. 


This issue of JPC begins as usual with HP-28 articles. Paul Courbis make a few corrections about his 
previous article. Next, Hervé Thévenon presents US a game and a program to plot the primitive of a 
function. On page 5, you will find PEEK and PokE functions for the HP-28S by Paul Courbis. On page 7, 
Philippe Heilbronn gives us a second part for his previous article. Last, Sébastien Lalande describes a 
program to compute fractional numbers and an application to matrices. 


One of our Swiss friends (from PPC Lausanne), Jean Hulaas, feeds the HP-41 columns with a program to 
multiply compatible matrices. The program is well documented. 


The HP-71 columns begins on page 16 with an article by our friend Xavier Bille about Forth vocabularies 
listing. - 


On page 18, Jacques Baudier presents his last article about HP-71 assembly language programming. This 
series is discontinued because Jacques’s machine was lost a few month ago. That's too bad... The next 
assembly language article is from Frédéric Vadez describing a function Hss to convert a real to a string in 
hms format. 


The HP-71 Basic columns includes four articles. The first one appears on page 24. It was written by Serge 
Vaudenay to compute the eigen values of à matrix using Jacobi method. The following article is by 
Jean-Claude Kursner (a Swiss friend from PPC Paris) and provides an extended directory facility. It is 
interesting to study for beginners. The penultimate article is from Alexandre Boldiref. Alexandre is using 
this program daily to print his own mail and reports. The last article is from Eric Gengoux and Michael 
Markov and provides most desired Program to print HP-41 barcodes on a ThinkJet using an HP-71. 


Until next time, 


Happy Programming and JPC reading ! 


